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Cómo. usar este curso 


Objetivo del curso 

Simplemente, ayudarte a que aprendas a usar un microordenador con confian- 
za. Para conseguirlo, necesitas tres cosas: (a) el BASIC del microordenador ZX Spec- 
trum; (b) planificar buenas estructuras de programas; y (c) dominar el teclado del 
Spectrum. Este curso te enseña principalmente las dos primeras. Con la ayuda de 
la cinta “Horizons” que se suministra con el Spectrum, llegarás pronto a familiarizar- 
te con el teclado, aunque habrán referencias ocasionales de cómo obtener algunas 
funciones disponibles en el teclado. 

30 Horas de BASIC no contiene todo lo que hay que saber de BASIC, pero 
cubre lo esencial. Una vez que hayas completado este curso, estarás preparado para 
usar un libro cualquiera sobre BASIC. 


¿Necesito un microordenador? 

Puedes seguir este curso tanto si tienes acceso como si no, a un microordena- 
dor, sin embargo, te será más útil disponer de un ZX Spectrum, ya que este curso 
está diseñado especialmente para esa máquina. 

Puedes escoger cualquiera de estos métodos para seguir el curso: 

Con microordenador: Haz todos los ejercicios y preguntas de fijación (PF) e 
introduce por teclado todos los programas señalados con [K 

Sin microordenador: Sigue la misma pauta anterior, pero omite la parte práctica. 


Estructura del curso 

Se divide en 9 Unidades. Cada Unidad incluye: 

Ejemplos: Son problemas que están completamente resueltos en el texto. 

Preguntas de fijación (PF): Se te pide que te detengas y se verifica si has asimi- 
lado correctamente la nueva idea que se ha introducido. Las respuestas aparecen 
siempre al final de la Unidad a la que corresponde la pregunta. 

Ejercicios: Son problemas más difíciles de resolver para ti. Las respuestas están 
al final de la Unidad a la que corresponde. 
[K] quiere decir teclear. Este punto creemos que es muy interesante para ti, si 
tienes un ZX Spectrum. 
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UNIDAD 1 


Sentencias y comandos simples 


¿Qué hace una computadora? . 
¿Qué es una computadora? . 
¿Qué es BASIC? . 

Un problema sencillo 
Números de sentencias . 
Ejecución y comandos . 
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1.1 ¿Qué hace una computadora? 


En términos simples, una computadora es una máquina que nos ayuda a resol- 
ver cierta clase de problemas. Usualmente, éstos involucran simbolos o caracteres 
que nos son familiares por el uso cotidiano, ej. letras del alfabeto (mayúsculas y 
minúsculas), números, signos de puntuación y algunos caracteres especiales como 
+, 4, +. La computadora nos permite introducir un conjunto de símbolos o carac- 
teres y Obtener un conjunto diferente pero relacionado. Si esto parece muy vago 
y general, consideremos algunos ejemplos específicos. 


CARACTERES INTRODUCIDOS 


Números representando el tamaño de 
una ventana. 


Lista de libros retirados de una bi- 
blioteca. 


El nombre de una persona. 


Notación estándard del movimiento 
de una pieza de ajedrez. 


Número representando peso y acele- 
ración. 


Códigos predeterminados. 


CARACTERES OBTENIDOS 


Coste de un vidrio doble. 


Lista de aquellos libros que debían 
haberse devuelto. 


Su número de teléfono. 


Gráfico del tablero con el movimien- 
to cumplimentado. 


Gráfico de alunizaje. 


Sonidos musicales. 


Figura 1 Algunos usos de una computadora. 


Este curso no trata de cómo hace la computadora esas cosas, sino de cómo 
debes hacer para que ella las realice, dándole las instrucciones adecuadas. No vamos 
a entrar en detalles de interioridades de una computadora, pero sí es interesante que 
sepas sus partes más esenciales. Te lo explicamos a continuación. 
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1.2 ¿Qué es una computadora? 


Se muestra en figura 2 un modelo simple de computadora. 


Dispositivo 
de entrada 


Unidad Central Dispositivo 


de Proceso de salida 


Figura 2 Un modelo simple de computadora. 


Observa que hay tres partes principales en una computadora: 


1 La unidad de entrada que permite la introducción bien de instrucciones o 
datos (información) en la computadora. En un microordenador el dispositi- 
vo de entrada es el teclado, similar a una máquina de escribir. 

2 La unidad central de proceso (UCP) que, entre otras cosas, lleva a cabo 
las instrucciones que tú introduces. Este proceso transforma los datos, dán- 
dote la “respuesta” o salida que tú esperabas. 

3 Un dispositivo de salida que te permite recibir el resultado del proceso. Pue- 
de ser una pantalla de televisión, o una impresora que escribe sobre un papel. 


Todo esto puede parecer muy vulgar. Sin duda lo sería, si no fuese por las tres 
características clave de una computadora: (a) su capacidad para almacenar grandes 
cantidades de datos que (b) se pueden procesar rapidísimamente y (c) su capacidad 
para almacenar un programa que controle su propia operación. Esta última caracte- 
rística es la más importante y la que vamos a tratar en este curso. 


Almacenamiento externo 

Vamos a mencionar otro detalle técnico antes de ver la programación. Si estás 
siguiendo este curso, probablemente tengas un microordenador con corta capacidad 
interna de memoria. El utiliza esa memoria para guardar las instrucciones que se 
han de ejecutar, así como detalles del problema que se está resolviendo. Los últi- 
mos detalles se borran cuando apagas la máquina, por lo que, si quieres guardar 
tu programa o datos, has de hacerlo en una memoria externa: una memoria separa- 
da que puedes ligar a la computadora cuando la necesites. En los sistemas pequeños 
suele ser una cinta audio cassette ordinaria y en sistemas grandes, discos magnéticos. 

Así, para resumir, los elementos principales de un sistema de computadora se 
muestran en la figura 3. 
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Pantalla TV Unidad de salida 


Salida del 
procesador hacia 
la unidad de salida 


Datos e instrucciones 
almacenándose en la 
memoria de cinta 


ELE Almacenamiento 
externo 


Grabador de cinta 
de cassette 


Unidad central de proceso (UCP) Datos e instrucciones 
tomados de la cinta 


Unidad de entrada 


Figura 3 Un sistema típico de computadora. 


1.3 ¿Qué es el BASIC? 


Una computadora es un dispositivo electrónico que procesa señales eléctricas. 
Si tuvieses un problema, no podrías introducirlo en la computadora por medio de 
señales eléctricas. Tampoco podrías interpretar la salida de la computadora si ésta 
fuese en forma de señales eléctricas. Por esto una computadora tiene un código de 
máquina interno (puesto ahí por el fabricante) que le capacita para entender un códi- 
go de programación que tú puedes entender. Los códigos de máquina suelen llamar- 
se lenguajes de programación de bajo nivel y se corresponde directamente con las 
señales eléctricas de la computadora. Por razones obvias, este programa se denomi- 
na intérprete. Este curso te enseña BASIC que es un lenguaje de programación de 
alto nivel. Serás capaz de utilizar BASIC para programar cualquier computadora 
que posea intérprete de BASIC. BASIC, por cierto, quiere decir Código de Instruc- 
ciones Simbólicas para todo propósito de los Principiantes. 

La secuencia de acciones que tiene lugar al programar una computadora es: 
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Uu hn 


Tienes un problema. 

Descompones el problema en etapas, que pueden ser escritas en BASIC. 
Escribes el programa en BASIC. 

Introduces el programa por medio del teclado. 

La computadora interpreta tus instrucciones BASIC en sus propias codifica- 
ciones internas y las procesa. 

La computadora imprime el resultado en la forma que se especifique en el 
programa. 


Y todo esto es lo que necesitas saber acerca de una computadora. A partir de 
este momento consideramos que lo que tú quieres es dar problemas a la computado- 
ra para que te los resuelva. Así que vamos con un problema sencillo. 


1.4 Un problema sencillo 


La principal actividad de la programación es descomponer la solución a un pro- 
blema en etapas sencillas, que pueden representarse por medio de sentencias BASIC. 

Imagínate que estás jugando a ser una computadora con un niño. El niño debe 
darte dos cantidades y pedirte que le des el resultado de la suma. Tras unos instan- 
tes, el niño, naturalmente, querrá que se lo repitas, pero con muchas cantidades, 
que tú no podrás retener en tu mente y necesitarás la ayuda de un lápiz y papel. 
Esto sería un típico diálogo: 

NIÑO: “Empieza” 

TU: “Dame el primer número” 

NIÑO: *12157" 

(Escribes este número en un papel) 

TU: “Dame el segundo número” 

NIÑO: “7896' 

(Escribes el segundo número en el papel) 

(Realizas la suma) 


TU: 


20053” 


La computadora procesaría todo esto, más formalmente: 


UN 


4 


Introducir primer número 
Introducir segundo número 
Sumar ambos 

Mostrar el resultado 


Figura 4 Proceso de computadora en la suma de dos números. 
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Por esta simple analogía, hemos llegado a una estrategia para resolver este pro- 
blema. Esto es, las fases 1 y 2 tratan de la introducción de números en la computa- 
dora, la fase 3 implica un proceso en la unidad central, mientras la fase 4 involucra 
la unidad de salida. 

Ahora, aunque no te hemos enseñado aún programación BASIC, te mostrare- 
mos la secuencia de la solución escrita en BASIC. 


Ejemplo 1 
Escribe un programa BASIC para introducir dos números en la computadora 
y Obtener la suma de ambos. 


Solución 
En la figura 4 hemos desarrollado un proceso intuitivo para resolver el proble- 
ma. Un programa BASIC tendría esta forma: 


10 INPUT primero 

20 INPUT segundo 

30 LET suma = primero + segundo 

40 PRINT suma 

50 STOP Programa 1 


Vamos a ponerlo en práctica en el Spectrum. 
Cuando conectas tu computadora y la pantalla, ésta aparece en blanco, excepto 
la línea 


O 1982 Sinclair Research Ltd 


Pulsa la tecla 1, y esa línea desaparecerá, dejando el número 1 seguido de una 
intermitente (el cursor). Ahora pulsa la tecla O (cero). (Observa que en el Spectrum, 
el cero aparece cruzado por una barra: es para diferenciarlo de la letra o.) Ahora 
tienes el número de línea, 10, seguido del cursor K, que te dice que la computadora 
interpretará el próximo tecleo como una palabra clave de BASIC. Por esto, cuando 
pulsas la tecla 1, aparece la palabra INPUT comapleta. El cursor pasa de K a L, 
que aindican que la interpretación que hará la computadora de la siguiente introduc- 
ción serán letras. Teclea la palabra “primero” y aparecerá en minúsculas: pulsa la 
tecla ENTER. ] 


10 INPUT primero 


ahora, en la parte superior de la pantalla, aparece un > indicando que ésta es la 
línea en curso. El cursor cambia a K de nuevo. Ahora teclea 


20 INPUT segundo 
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Cuando se llega a la línea 30, la palabra LET se obtiene pulsando la tecla L. 
El signo igual se consigue manteniendo pulsada la tecla SYMBOL SHIFT y pulsan- 
do la L. Del mismo modo, el signo más (+) es: SYMBOL SHIFT y K. En la línea 40 
obtenemos PRINT, pulsando la tecla P. STOP, en la línea 50, mediante SYMBOL 
SHIFT y la A. 

No olvides pulsar ENTER después de completada la línea. Esto almacena la 
línea en la memoria del computador y vuelve al comienzo de la pantalla. 

En caso de que no estés seguro sobre el sistema de teclas del Spectrum: 


Reglas para obtener caracteres/palabras clave del ZX Spectrum 

Cuando el cursor K (llamado modo K) parpadea, las palabras BLANCAS de 
las teclas saldrán al ser pulsadas éstas, ej. A da NEW, B da BORDER, y así sucesi- 
vamente. Si mantienes pulsada la tecla SYMBOL SHIFT, las palabras ROJAS del 
teclado saldrán al ser éstas tecleadas, ej. A da STOP, B da *, etc. 

Si mantienes pulsada CAPS SHIFT, tocando luego SYMBOL SHIFT, aparece 
el cursor E. Las teclas darán ahora las funciones que están en VERDE, ej. A da 
READ, B da BIN. 

Si mantienes pulsada SYMBOL SHIFT cuando el cursor está en E, toca una 
tecla y las funciones ROJAS bajo la tecla serán las que tengan efecto, ej. B da 
BRIGHT, C da PAPER. 

Cuando aparece el cursor L, se producen las letras de las teclas, pero en minús- 
culas. Si quieres mayúsculas, pulsa CAPS SHIFT. Si quieres escribir en mayúsculas 
todo el tiempo, presiona CAPS SHIFT y luego toca CAPS LOCK (tecla 2). El cursor 
cambia a C para recordarte que estás escribiendo en mayúsculas. 

Si mantienes pulsada CAPS SHIFT, luego pulsas GRAPHICS (tecla 9), apare- 
cerá el cursor G, que te permite obtener símbolos gráficos de las teclas 1 a 8. Si 
mantienes pulsada CAPS SHIFT, en modo fráfico y pulsas INV VIDEO (tecla 4) 
obtendrás los símbolos gráficos invertidos. Tendrás que pulsar CAPS SHIFT y GRAP- 
HICS, luego CAPS SHIFT y TRUE VIDEO (tecla 3), luego CAPS SHIFT y GRA- 
PHICS para volver al gráfico usual. 

Esto parece un lío al principio, pero verás que todo es cuestión de familiarizarte 
con ello. Si te equivocas al teclear una línea, no te preocupes: se borra usando CAPS 
SHIFT y DELETE (tecla 0). Si introduces una sentencia imposible, la línea errónea 
se mantiene al fondo de la pantalla con una ? intermitente, que muestra el error. 
El sistema no te deja continuar hasta que lo hayas corregido. 

El teclado permite la repetición de caracteres, simplemente manteniendo pulsa- 
da la tecla del carácter deseado. Se interrumpe la repetición en el momento que le- 
vantas el dedo de la tecla. También funciona así con la tecla DELETE (tecla 0), 
pudiendo así borrar una línea entera con rapidez. 


EDIT 

El Spectrum posee también la capacidad de edición. Por ejemplo, si quisiéra- 
mos cambiar nuestro programa por una resta, en lugar de una suma, tendríamos 
que alterar las líneas 30 y 40: 


LIST 

Pulsa CAPS SHIFT y 6, que direcciona el cursor hacia abajo; aparecerá > 
en la línea 10. Repite esta operación dos veces y el > aparecerá en la línea 30. Pode- 
mos usar CAPS SHIFT y 7 para desplazar el > hacia arriba, si se desea. 

Ahora el apuntador está en la línea 30, pulsa CAPS SHIFT y 1. Esto es la 
modalidad de edición. La línea 30 aparecerá al fondo de la pantalla. Podemos usar 
CAPS SHIFT y 5 Ó 8 para desplazar el cursor a lo largo de la línea. Coloca el cursor 
un carácter más allá del que queremos cambiar. La tecla DELETE borrará el carác- 
ter que debía ser sustituido y podemos teclear el sustitutivo. 

Borrar suma y teclea diferencia; borrar el signo más y poner el menos (CAPS 
SHIFT y J). Da ENTER para la línea corregida. Has obtenido un segundo programa 
con muy poco trabajo de teclado. 

Si ves que te cuesta entender el método de palabras clave y símbolos, es preferi- 
ble que ejercites algún tiempo usando la cinta “Horizons” que recibiste con el Spectrum. 

No nos vamos a concentrar en detalles del problema resuelto, pero esperamos 
que hayas visto, sin necesidad de estrujarte el cerebro, cómo la estrategia de la figura 4 
se convirtió en un programa. Un programa es, pues, una secuencia de instrucciones 
compuestas para resolver un problema dado en la computadora. 


PF 1 

Volvemos al punto primero del curso, donde queremo, probar los progresos 
que has conseguido, mediante estas Preguntas de Fijación (P1'). Las PF's están dise- 
ñadas para ayudarte a ver si has entendido o no las explicaciones precedentes. En 
cada caso, la respuesta a cada PF aparece al final de la unidad a que corresponde 
la PF. Si has respondido todas las PF correctamente, pasa a la siguiente sección. 
Si tienes equivocaciones, vuelve atrás y mira dónde te has equivocado. 

Selecciona aquellas frases de la lista B que completan correctamente las de la 
lista A. 


A 

La UCP ... 

Las principales características de un sistema de computador son ... 
Un código de máquina es ... 

Un código de máquina es un ejemplo de un lenguaje ... 

BASIC es un ejemplo de un lenguaje ... 

Un intérprete BASIC ... 

Un programa de computador es ... 


ZA Ou bh uynN mn 
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(a) de bajo nivel 
(b) de alto nivel 


(c)  ... toma instrucciones y datos, controla su propio proceso, y controla las 
operaciones de los dispositivos de entrada y salida 

(d) ... una serie de instrucciones o etapas de procedimiento para la solución 
de un problema específico 

(e)  ... que es capaz de almacenar grandes cantidades de datos, procesarlos rá- 
pidamente y almacenar un programa que controle sus propias operaciones 

(1)  ... traduce código escrito en BASIC a código de máquina 

(8) ... un código que se corresponde directamente con señales eléctricas en el 


interior del computador. 


1.5 Numeración de sentencias 


Recordemos un momento el programa 1: 


10 INPUT primero 

20 INPUT segundo 

30 LET suma = primero + segundo 

40 PRINT suma 

50 STOP Programa 1 


Hemos dicho que un programa es una secuencia de instrucciones. En el progra- 
ma de arriba cada línea es una instrucción. Así: 


10 INPUT primero 
es la primera instrucción del programa, y 
50 STOP 


es la última. Las instrucciones de un lenguaje de programación se llaman a veces 
sentencias. Usaremos alternativamente ambas denominaciones. 


Introducción de sentencias 

Cuando te sientes ante el teclado de tu microordenador, el proceso normal de 
introducir sentencias es escribirlas y pulsar ENTER. Es decir: 

Tecleas 10 INPUT primero y luego pulsas ENTER. Después tecleas 20 INPUT se- 
gundo, etc. No olvides que INPUT es una palabra clave y sólo has de tocar la tecla I, 
no escribir la palabra. 


17 


Tú ves en la pantalla 10 INPUT primero 
20 INPUT segundo 


Ya te habrás dado cuenta de que cada línea empieza con un número. Deben 
ser números enteros, dentro del rango 1—9999, y determinan el'orden en que deben 
ejecutarse las instrucciones, es decir, definen la “secuencia? de las instrucciones. La 
ejecución de las instrucciones empieza con la línea cuyo número es el más bajo y 
continúa en el sentido de números crecientes hasta que se le instruya de otra forma 
o se llegue al final del programa. (Hablaremos de esto más adelante.) 


Te puedes preguntar: ¿por qué no se escribió el programa así?: 


INPUT primero 

INPUT segundo 

LET suma = primero + segundo 

PRINT suma 

sToP Programa 2 


naun— 


¡Claro que sí! El programa hubiera funcionado perfectamente. Sin embargo, 
como veremos más adelante, cuando se escribe un programa se le debe dar a éste 
un cierto grado de flexibilidad. En particular, necesitas la oportunidad de introducir 
en el programa sentencias (bien porque se olvidaron o por ampliación posterior del 
programa). Numerando nuestras líneas 10, 20, 30, 40 y 50, dejamos entre ellas 9 
líneas vacías que pueden usarse para estos propósitos. Al ejecutar, el proceso busca 
la próxima línea más alta en el programa, por lo que las líneas no existentes no 
influyen para nada en el desarrollo y velocidad del mismo. 


PF 2 
Mira los números de línea de los siguientes programas y decide qué programas 
producen la suma correcta de “primero” y “segundo”. 


11 INPUT primero 
59 INPUT segundo 
93  LET suma= primero + segundo 
401 PRINT suma 
(a) 500 STOP 


23 INPUT primero 
32 INPUT segundo 
49 LET suma = primero + segundo 
40 PRINT suma 
(b) 50 STOP 


10 INPUT primero 
20 INPUT segundo 
15 LET suma = primero + segundo 
40 PRINT suma 
(c) 50 STOP 
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100 INPUT primero 
200 INPUT segundo 
110 LET suma = primero + segundo 
190 PRINT suma 
(d) 220 STOP 


100 INPUT primero 
50 INPUT segundo 
407 LET suma= primero + segundo 
902 PRINT suma 
(e) 1000 STOP Programa l 


1.6 Ejecuciones y comandos 


El comando RUN 
¿Ejecución? No, no es el final, sino el comienzo. ¡Vamos a ejecutar nuestro 
primer programa antes de que nos cansemos de él! 


Tan pronto hayamos entrado el programa 1: 


10 INPUT primero 

20 INPUT segundo 

30 LET suma = primero + segundo 

40 PRINT suma 

50 STOP Programa l 


¿Y qué ocurrió? Nada, porque el computador está a la espera de que le digamos 
que ejecute el programa. Si quieres que así sea, debes dar el comando RUN. Esto 
lo añades en una nueva línea, tal como sigue: 


10 INPUT primero 
20 INPUT segundo 
30 LET suma = primero + segundo 
40 PRINT suma 
50 STOP 
RUN Programa l 


(No te preocupes si RUN no tiene numerada la línea - te lo explicaremos breve- 
mente.) 

Entonces pulsa ENTER. Verás [L] en la pantalla, que es la forma que tiene 
el computador de pedir datos. Dale tu primer número, pulsa después ENTER; otra 
vez aparece porque el computador necesita el segundo número. Dale el segundo 
y pulsa ENTER. Ahora aparece la respuesta. He aquí el resultado: 
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10 INPUT primero 

20 INPUT segundo 

30 LET suma = primero + segundo 
40 PRINT suma 

50 STOP 

RUN 

12157 

7896 

20053 


9 STOP statement, 50:1 (significa STOP en línea $50, primera sentencia) 


Figura 5 Ejecución completa de un programa. 


Lo que estamos haciendo, sin embargo, es distinguir entre entrar un programa 
y ejecutarlo. Volvemos al diálogo entre tú y el niño, jugando a ordenadores. Un 
niño muy explicito diría: “Te voy a dar dos números, quiero que los escribas, los 
sumes, y luego me digas la suma”. En este punto, tú sabes exactamente lo que tienes 
que hacer, pero aún no has hecho nada. Has recibido instrucciones, es decir, has 
sido programado. El diálogo puede desarrollarse así: 


NIÑO: “Empieza” 

TU: “Dame el primer número” 
NIÑO: “12157” 

TU: “Dame el segundo número” 
NIÑO: “7896' 

TU:*20053” 


Ahora se han llevado a efecto las instrucciones (run). Un programa es, pues, 
una serie de instrucciones para la computadora. Estas instrucciones se llevan a cabo 
cuando el programa se ejecuta. 


Otros comandos: LIST, SAVE, LOAD, VERIFY 
RUN no es el único comando que puedes dar a un programa. Puedes usar tam- 
bién LIST, SAVE, LOAD y VERIFY como sigue: 


LIST 

Puede que te lleve mucho tiempo escribir un programa a tu computadora, en 
el teclado y durante ese proceso hagas varias correcciones, usando EDIT. Puede que 
después quieras ver el programa completo en la pantalla. Si introduces la palabra 
LIST, mediante la pulsación de la tecla K, verás la copia del programa en la panta- 
lla, ordenado por número de línea. En programas largos aparece la palabra “scroll?” 
cuando la pantalla está llena. Para ver la siguiente sección del programa, pulsa cual- 
quier tecla alfabética (excepto N). El listado continúa hasta que la pantalla se llene 
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de nuevo, o se llegue al final del listado, si es más corto que una pantalla. Pulsando 
la tecla de la letra N se parará el listado, con el mensaje 


D BREAK — CONT  repeats 


Si en cualquier etapa, tienes un listado en la pantalla, y el fondo de la pantalla 
tiene el mensaje “scroll?” debes pulsar N para parar el listado si quieres alterar una 
de las líneas del programa. De lo contrario, la próxima pulsación que hagas, hará 
que continúe el listado. 

Si quieres eliminar una línea totalmente de tu programa, teclea el número de 
la línea y luego pulsa ENTER. Si tu luego, listas el programa, verás que la línea 
en cuestión ha desaparecido. Si quieres enmendar una línea totalmente teclea el nú- 
mero de línea, después las nuevas instrucciones, y: ENTER. Si listas el programa 
de nuevo verás que la modificación ha surtido efecto. 


SAVE 

Después del trabajo que te ha costado escribir un programa, con la intención 
de ejecutarlo no sólo ahora, sino mañana o en cualquier otro momento, suponemos 
que no te hará feliz escribirlo cada vez que eso vaya a ocurrir. Piensa que la memo- 
ria de tu ZX Spectrum se borra cada vez que lo desconectas. Luego, es evidente 
que se hace necesario un medio de almacenar programas. 

Esto es posible almacenando el programa en una cinta cassette. Necesitarás una 
buena grabadora de cassette —de 3,5 mm. de jack (usualmente con MIC para micró- 

. fono y EAR para auriculares). El Spectrum trabaja con la mayoría de los cassettes 
mono grabación, porque tiene circuitos especiales de filtro para evitar diferencias 
de señal. 

Conecta el MIC de la grabadora con el MIC del Spectrum. No conectes los 
EAR. Es aconsejable utilizar cintas de corta duración, para evitar pérdidas de tiem- 
po innecesarias al bobinar o rebobinar, cuando se esté buscando un programa. Tam- 
bién es útil tener un contador de vueltas, para evitar tiempos muertos, posicionando 
manualmente donde se requiera. 

Para almacenar un programa en cinta, éste debe estar primero en la memoria 
del computador. Toca LIST (tecla K), luego ENTER, para asegurarte de que el pro- 
grama está ahí. El listado acabará con el mensaje 


O OK, 0:1 


Sitúa la cinta virgen en la grabadora, pon el contador de vueltas a cero y gira 
la cinta hasta pasar la parte coloreada. Coloca el tono y volumen a dos tercios de 
sus máximos valores. 

Toca SAVE (tecla S), luego SYMBOL SHIFT y P (para dar comillas ”). Ahora 
teclea el nombre del programa, que debe estar compuesto de letras y números sola- 
mente, y no más largo de 10 caracteres. Termina con comillas (”) otra vez. 
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Toca ENTER, y aparecerá el mensaje 
Start tape, then press any key 


Para practicar un poco, almacena el programa que acabamos de usar (Progra- 
ma 1). Llámalo SUM. De modo que teclea 


SAVE "Sum” y toca ENTER 


Puedes practicar aunque no tengas la cinta, hasta que estés seguro. Si tocas cual- 
quier tecla, aparecerán en pantalla una secuencia de franjas de colores y luego se 
blanqueará la pantalla y aparecerá el mensaje 


O OK, .0:1 


Cuando tengas confianza, hazlo en realidad. Teclea SAVE “Sum”, toca EN- 
TER. Pon en marcha tu grabadora, luego toca cualquier tecla del Spectrum. Vigila 
la pantalla y para la grabadora cuando aparezca O OK, 0:1. 


VERIFY 
Puedes comprobar tu grabación con el comando VERIFY. Rebobina la cinta 
a una posición por delante de lo grabado. Teclea 


VERIFY "Sum" 


Puedes obtener VERIFY manteniendo pulsada CAPS SHIFT, después pulsar 
sin soltar SYMBOL SHIFT, dando el cursor [L] ; entonces suelta CAPS SHIFT, 
manteniendo pulsada SYMBOL SHIFT, y toca la tecla R. 

Ahora necesitas conectar el EAR de la grabadora con el EAR del Spectrum. 
(No importa si los MIC están conectados al mismo tiempo.) Pon en marcha la gra- 
badora y da ENTER. Cuando la computadora ha leído la cinta, si todo es correcto, 
aparecerá un mensaje de OK. Si no, aparecerá un mensaje de error. En este caso 
vuelve a repetir la operación sobre otra cinta. Y vuelve a verificar. VERIFY es una 
herramienta que te evitará disgustos, puesto que si no lo usas, creyendo que la gra- 
bación del programa ha sido correcta y cuando lo quieras recuperar de la cinta para 
ejecutarlo, fallando por culpa de una mala grabación, habrás perdido el original y 
tendrás que teclearlo de nuevo todo entero. 


LOAD 
Cuando quieras introducir en memoria del computador un programa que está 
grabado en cinta, el comando 


LOAD "Pepe” 
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(tu programa debe llamarse Pepe!) hace que el computador busque en la cinta y, 
cuando ha encontrado el programa, lo carga en memoria. Mientras el computador 
está buscando, la pantalla sigue una secuencia de franjas de color. 

Palabras como LIST, RUN, SAVE, VERIFY y LOAD, que nos permite mane- 
jar el programa como una sola entidad, se llaman comandos y están incluidos en 
el intérprete BASIC. Un comando ocupa una línea y, generalmente, no lleva número 
de línea, por ejemplo la palabra RUN después de la sentencia 50 del Programa 1 
hace que el programa comience a ejecutarse, y equivale a la orden del niño “empie- 
za”, en el diálogo. Los comandos se estudiarán en otra Unidad, pero los cinco que 
ya hemos visto, nos sirven de arrancada. 


Palabras clave 
Estas son palabras BASIC que van en los programas para especificar qué acción 
ha de ocurrir, ejemplo INPUT, PRINT, LET. 


1.7 Ejecución y Datos 


Habrás visto que hemos escrito un programa para sumar cualesquiera dos nú- 
meros y sumarlos, de una forma general, por ello es indiferente al programa los 
números que se introduzcan cuando recibimos la atención [L] en la pantalla. A me- 
dida que se ejecuta el programa, éste debe ser capaz de pedirnos que introduzcamos 
los números que necesita para sumarlos. Es importante que sepas distinguir entre 
un programa, como un juego de más o menos instrucciones, y los datos, que son 
los números que introducimos cuando el programa se está ejecutando, para resolver 
un determinado problema. Tú puedes, desde luego, hacer que el programa se repita 
y darle muchos pares de diferentes números. 

Otra forma de considerar esas instrucciones es comparándolas con la situación 
de un árbitro de carrera de campo a través, que le da instrucciones a los corredores: 
“Bajar por el camino de la derecha, en el primer cruce doblar a la izquierda, llegando 
a la granja del recodo, doblar hacia...”. Las instrucciones del árbitro son análogas 
a las del programa. Si los corredores entienden lo que se les dice, saben lo que hacer; 
pero ellos están aún en la línea de salida. No han comenzado la carrera. Como el 
programa entrado en la computadora. Entonces, cuando el árbitro dice *A correr”, 
la carrera comienza. En el computador, la palabra RUN es el equivalente. Extenda- 
mos la analogía y consideremos que la carrera es una novedad. Imagina que el árbi- 
tro no da instrucciones suficientes para que los corredores conozcan su cometido 
exacto sobre la carrera, pero les dice algo así como “cuando lleguéis al final del sen- 
dero, encontraréis instrucciones completas colgadas en el roble”. Estas instrucciones 
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serán suficientes para que los corredores completen la carrera. Esta analogía es como 
la de proporcionar datos al programa durante su ejecución. 


PF 3 : 

Abajo hay un listado de salida de un computador. Contiene palabras clave, co- 
mandos, respuestas del sistema y referencias de datos. También contiene partes que 
conciernen a la entrada, ejecución y listado. Identifica todos los elementos que pue- 
das de la siguiente manera: 


Marca las palabras clave con K 
Marca los comandos con C 
Marca las respuestas del sistema con R 
Marca las referencias de datos con D 
Señala las líneas de entrada de datos 
Señala las líneas de ejecución 
Señala las líneas de listado 

10 INPUT primero 

20 INPUT segundo 

30 LET suma =primero + segundo 

40 PRINT suma 

50 STOP 

RUN 

L —37 

L —46 

—83 

9 STOP stetement, 50:1 

LIST 

10 INPUT primero 

20 INPUT segundo 

30 LET suma = primero + segundo 

40 PRINT suma 

50 STOP 

RUN 

E 12.83 

L 48.95 

61.78 

9 STOP statement, 50:1 

RUN 

L 17.0009 

L —29.3629 

—12.362 

9 STOP statement, 50:1 Programa l 
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1.8 INPUT, PRINT y LET 


Has visto que un programa es una secuencia de sentencias, y te hemos dado 
una idea intuitiva de cómo trabajan. Fíjate que los tres tipos de sentencia usados 
en nuestro ejemplo, corresponde cada uno a una de las tres partes principales de 
un computador (INPUT, LET y PRINT), esto es, entrada, proceso interno y salida. 
Vamos a ver cada sentencia en más detalle. 


INPUT 

La palabra INPUT indica al computador que, durante la ejecución, ha de intro- 
ducirse un dato por el dispositivo de entrada. Vimos lo que sucedió en nuestro pri- 
mer programa al ejecutarse: después de [L] introdujimos 12157, pulsamos ENTER 
para completar el procedimiento de entrada y nos volvimos a encontrar con otro [L 
requiriendo entrada del siguiente número. ¿Qué le pasó al 12157, el primer dato que 
entramos? La respuesta es que fue almacenado para su posterior uso en la ejecución 
del programa, en un lugar de memoria llamado “primero”. La palabra “primero” tie- 
ne dos funciones principales en el programa, (a) cuando es escrito y luego referencia- 
da por el programador, le recuerda a éste que en este punto del programa debe ser 
introducido el primer dato, y (b) cuando se escribe en la sentencia 10 INPUT prime- 
ro la palabra “primero” es el nombre o etiqueta de una ubicación en la memoria 
del computador. Así 10 INPUT primero significa introduce un número en el disposi- 
tivo de entrada y almacénalo en la ubicación etiquetada “primero”. 


PRINT 

La sentencia 40 PRINT suma tiene casi el efecto inverso de las sentencias 10 
y 20, en que nos permite obtener la información de la máquina. Es una indicación 
a la máquina de que nos haga una copia del contenido de la ubicación de memoria 
etiquetada “sum? y la pase al dispositivo de salida, que es para muchos usuarios una 
pantalla de televisión. LPRINT imprimiría literalmente en una impresora si ésta es- . 
tuviese acoplada al computador. Pero tú utiliza aún el comando PRINT cuando tu 
microordenador esté conectado a un televisor. 


LET 

30 LET suma = primero + segundo es un ejemplo de sentencia de asignación. El 
proceso tiene lugar en sentencias de este tipo. Como verás, es una mezcla de nom- 
bres de almacenamiento ('suma”, “primero”, “segundo”) y operadores aritméticos 
(= y +). Si lo lees, dice 


Haz que el lugar de memoria “suma” sea igual al contenido del lugar 
“primero” sumado al contenido del lugar *segundo”. 
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Sin embargo, como muchas expresiones matemáticas, es a menudo más claro 
leerlo al revés 


Suma el contenido del lugar *primero” al contenido del lugar “segundo” 
y almacena el resultado en el lugar “suma”. 


Generalmente las sentencias de asignación tienen el formato: 
LET nombre de ubicación de memoria = expresión. 


Esto significa halla el valor de la expresión de la derecha del sino = y almacena 
este valor en la ubicación representada por el nombre a la izquierda del signo =. 

El punto conflictivo sobre LET ...=... es que se confunde con facilidad con 
...=... de las ecuaciones matemáticas. Un ejemplo demostrará la diferencia. Supon- 
te que tienes almacenado un número en la ubicación L y quieres incrementar en 5 
dicho valor. Tu escribes: 


LETL=L+5 
Esto, obviamente, no quiere decir: 
L =L+5 


ya que no existe valor en L que pueda hacer cierta la igualdad. Lo que hace es que 
el computador sume $5 al valor contenido en L. 


26 


1.9 Ubicaciones de Almacenamiento 


Como ya hemos dicho, una de las principales características de un sistema de 
computadora es su capacidad de almacenar grandes cantidades de datos. Debemos 
considerar ahora cómo nos permite el ienguaje BASIC ubicar nombres de ubicacio- 
nes de memoria. Si miras nuestro primer programa y recuerdas que una computado- 
ra es capaz de hacer sólo una cosa en un momento determinado, es obvio que cuan- 
do llegamos a la línea 20 y queremos introducir nuestro segundo número, ¡el número 
que fue introducido en la línea 10 ha debido ser almacenado en alguna parte! En 
este caso, el primer número fue almacenado en la ubicación etiquetada “primero”. 
Podemos imaginar la memoria como un palomar, donde podemos distinguir perfec- 
tamente entre el número, dirección o nombre de la casilla y su contenido. 


Figura 6 Un modelo de almacenamiento de memoria en un ordenador pequeño. 


Observarás que en nuestro modelo de almacenamiento usamos las etiquetas 
A, B, C ... Por otra parte, en el programa hemos estudiado que podemos usar pala- 
bras de hasta seis caracteres para dar nombres a nuestras etiquetas, ejemplo *prime- 
ro”, “segundo”. Pero no todos los BASIC de los diferentes microordenadores permi- 
ten el mismo rango de caracteres. Los hay que sólo admiten cuatro. El Spectrum 
permite nombres de variables de longitud ilimitada. 
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Elección de nombres , 

Desde luego, es mucho más claro para el programador dar nombres que tengan 
relación con el dato que va a introducir. Por eso escogimos primero, segundo y su- 
ma. Podíamos haber escogido a, b y s, y nuestro programa hubiese sido: 


10 INPUT a 
20 INPUT b 
30 LET s=a+b 


40 PRINT s 
50 STOP Programa 9 


[KK] Cuando veas este símbolo es que te sugerimos que introduzcas este programa 
en tu microordenador, si es que lo tienes. Para hacerlo, teclea las líneas, pulsando 
ENTER después de cada una, finalmente pulsa RUN y luego ENTER. Tu computa- 
dor te pedirá un número. Dáselo y pulsa ENTER. Entonces te pedirá el segundo. 
Dáselo, pulsa ENTER y la suma aparecerá en la pantalla. Si hemos hecho esto, en- 
tonces después de introducir 12157 y 7896, las ubicaciones de memoria serían: 


Figura 7 Estado de las ubicaciones de memoria después del Programa 9. 


El sistema normal de ubicar nombres 

Como en la mayoría de microordenadores no se permiten nombres de ubicacio- 
nes largos, nosotros, desde este momento, usaremos el sistema de nombres de ubica- 
ciones que funcionan prácticamente en todos ellos, hasta que lleguemos a las listas 
en otra unidad. El sistema que usaremos será el de dar como nombre de ubicación 
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“una letra seguida de un dígito. Esto nos da 286 combinaciones posibles, como mues- 
tra la figura 8. El Spectrum no distingue entre minúsculas y mayúsculas: A2 y a2 
son reconocidas como la misma ubicación. 


Figura 8 286 posibles ubicaciones de memoria. 


1.10 Copia y modificación 


Las sentencias BASIC pueden tener dos efectos diferentes sobre el contenido 
de una ubicación de memoria. O bien una sentencia no tiene efecto alguno sobre 
el contenido de una ubicación, o cambia su contenido. Esto se ilustra más abajo. 


Efecto de copia 

Suponte que tenemos el número 53 almacenado en una ubicación llamada A. 
¿Qué ocurre después de LET B=A y después de PRINT A? En cada caso A aún alma- 
cena el número 53 después de ejecutada la sentencia: 


29 


Antes Sentencia Después 
ejecutada 
ALMACENAMIENTO ALMACENAMIENTO 


Antes Sentencia Después Contro- 
ejecutada lador 
ALMACENAMIENTO ALMACENAMIENTO 


En cada caso, las sentencias de copia, dejan la ubicación original sin cambiar. 
Es como el extracto de cuenta de un banco, que es una copia en papel del saldo 
que hay en ella, ¡pero el dinero aún está allí! 


Efecto de la modificación 
Suponte ahora que tenemos el número 53 almacenado en la ubicación A pero 
esta vez ejecutamos la sentencia LET A = A+7. El resultado es: 


Antes Sentencia Después 
ejecutada 


ALMACENAMIENTO ALMACENAMIENTO 
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La sentencia LET A = A+7 cambia el contenido de A. Es decir, el contenido 
original de A desaparece y es reemplazado por el nuevo contenido, que es, en este 
caso, 60. Por supuesto, podemos hacer que el contenido de A sea 60 de muchas 
maneras, ejemplo diciendo: LET A = 60. 


PF 4 
Cuáles de los siguientes son nombres de ubicaciones válidas para números, de 
acuerdo con las reglas dadas en las páginas 22-24? E 


(a) N3 
(b) 3N 
(c) W10 
(d) B4 
(e) Q) 
(1) M 

(8) M5 
(h) M-5 
() M+5 
0) UO 


Razona los desechados. 


1.11 Operadores aritméticos 


Cuando usas la aritmética empleas los operadores: +, —, x y +. El BASIC 
tiene los mismos operadores, aunque dos de ellos se imprimen diferente: 
Símbolo cotidiano Significado Símbolo BASIC 
+ sumar + 
AÑ restar PS 
Xx multiplicar + 
> dividir / 


PF 5 
Escribe las siguientes expresiones usando símbolos BASIC como operadores arit- 
méticos. (Donde haya paréntesis, déjalos en tus respuestas.) 


(a) 3+7 (e) 30 (3+2) 
(b) 3x7 (£) 24—(4x 3) 
(c) 84 (g) 5x6x7 

(d) 5x(Q+8) (h) 81—(27x2) 
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PF 6 
Si A tiene valor 2, B tiene valor 5 y C tiene valor 10, calcular los valores de 
lo siguiente: 


(a) A+B+C (e) CABA) 
(b) A*B (1) AFA 

(e) A*B*C (2) (BFC)ABA) 
(d) C/A “(h) (C—B)*(C + B) 


Las operaciones aritméticas se ejecutan en BASIC mediante la instrucción LET 
que le dice a la unidad aritmética del procesador central lo que tiene que hacer. Te 
ilustramos esto con el siguiente modelo de computadora. 


ALMACENAMIENTO 


Efecto de LET A = BC AL COMIENZO 
15 10 
LET A = BC A B C 
D E | F 


Recuerda leer la expresión de derecha a izquierda del signo igual. Dice toma 
el número de la ubicación B, réstalo del número de la ubicación C y coloca el resul- 
tado en la ubicación A. De modo que el resultado es: 


ALMACENAMIENTO 
Resultado de LET A = BC AL FINAL 
Observa que el contenido de 5 15 10 
B y C no cambia A B C 
D E F 
Efecto de LETA = BAC 
ALMACENAMIENTO ALMACENAMIENTO 
AL COMIENZO AL FINAL 
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PF 7 
Coloca los valores en las ubicaciones A, B y C después de cada línea ejecutada 
en estos programas. 


Valores de las 


1. Programa ubicaciones 
A B C 
10 LETA = 12 3 
20 LETB =5 [] lol [] 
30 LET C = Ax(A+B) [] [] [] 
40 LETA = A+10 _] [] [] 
Valores de las 
2. Programa ubicaciones 
A B C 
10 LET A = 20 E] ] [4] 
20 LET B = Ax 3 [E |] [] 
30 LET C = A/4 LJ L] L] 
40 LETA = B4+C [) [7 E 


Lo que acabamos de hacer no es difícil (esperamos) y no aporta mayor dificul- 
tad cuando usemos nombres más complejos. Hemos de complicar los nombres por- 
que A, B, C ... sólo nos da para 26 ubicaciones y, como se dijo anteriormente, 
vamos a usar nombres como A, AO, Al, etc. Así, 


LET P4 = Q1*R1 


no difiere de LETA = B*C. P4, Q]1 y RI son simplemente nombres de ubicaciones. 
P4 es un nombre, como XYZ 823A es la matricula de un coche. 
Ahora estamos listos para usar la capacidad aritmética de un computador. 


Ejemplo 2 
Escribe un programa BASIC para introducir dos números en el computador 
y luego ver la suma, diferencia, producto y cociente. 
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Solución 

Puede parecer complicado pero lo vamos a resolver ya. teníamos un programa 
(Programa 9) que nos daba la suma de dos números, así que para que nos dé la 
diferencia, el producto y cociente sólo tenemos que cambiar el operador aritmético 
de la línea 30, que decía así 


30 LET suma = primero + segundo 


Lo primero que vamos a hacer es volver a escribir el programa, usando nom- 
bres de ubicaciones más cortos: 


Versión original Versión nueva 

10 INPUT primero 10 INPUT n1 

20 INPUT segundo 20 INPUT n2 

30 LET suma = primero + segundo 30 LET s=n1+n2 

40 PRINT suma 40 PRINT s 

50 STOP 50 STOP Programa 10 


Ahora lo que necesitamos son tres versiones extras de la nueva versión, cada 
una de ellas con una línea 30 diferente: 


10 INPUT ni 10 INPUT n1 10 INPUT n1 10 INPUT n1 

20 INPUT n2 20 INPUT n2 20 INPUT n2 20 INPUT n2 

30 LET s=n1+n2 30 LETd=n1—n2 30 LET p=n1*n2 30 LET q=n1/n2 
40 PRINT s 40 PRINT d 40 PRINT p 40 PRINT q 

50 STOP 50 STOP 50 STOP 50 STOP 


(Usando d para la ubicación de la diferencia, p para la del producto, y q para 
la del cociente.) 


¿Necesitamos escribir cuatro programas? Afortunadamente no, porque cuando 
copiamos los números de las ubicaciones nl y n2, no estamos destruyendo su conte- 
nido, así que podemos usarlos cuatro veces en nuestro programa: 


10 INPUT n1 13 
20 .INPUT n2 Programa original para la suma 
30 LETs=n1+n2 

40 PRINT s 


50 LET d=n1—n2 ] Líneas extras para la diferencia 
60 PRINT d 


70 LET p=n1*n2 den Líneas extras para el producto 
80 PRINT p 

90 LET q=n1m2 as Líneas extras para el cociente 
100 PRINT q 

110 STOP 


Programa 11 Suma, diferencia, producto y cociente de dos números. 
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K] Entra el programa 11. Luego pulsas RUN e introduces dos números. 
El resultado sería: 


RUN 

L' 57.82 
L 19.11 
76.93 
38.71 
1104.9402 
3.025641 


9 STOP statement, 110:1 


1.12 Constantes numéricas 


Con anterioridad en esta unidad vimos que nuestro primer programa BASIC 
era capaz de manipular enteros, decimales y negativos. En este momento no quere- 
mos profundizar sobre la representación de los números en BASIC, sino enseñarte 
que podemos usar directamente números en sentencias de asignación. 

La sentencia LETP = 427 *R significa crea el número 427, multiplícalo por el 
número encontrado en la ubicación R y luego almacena el resultado en la ubicación P. 

(No creas que el computador sólo entiende números binarios. El intérprete del 
computador nos posibilita la introducción de números decimales.) 

Similarmente, la sentencia LET Y4 = 3.142+Z8 crea el número 3.142 y lo suma 
al contenido de la ubicación Z8, depositando luego el resultado en la ubicación Y4. 

Y la sentencia LET A = —48.93/B crea el número —48.93 y lo divide por el nú- 
mero que se halla en la ubicación B, almacenando después el resultado en la ubica- 
ción A. 


Ejercicio preambular 

El progreso de la métrica ha sido lento y la vida está llena de situaciones incó- 
modas, al tener que convertir libras a kilos, yardas a metros, pintas a litros, etc. 
... Si vamos de vacaciones al Reino Unido, vamos convirtiendo mentalmente los ki- 
lómetros a millas, libras a pesetas... La mayoría de nosotros piensa en la temperatu- 
ra del cuerpo y del tiempo en grados centígrados, en lugar de Fahrenheit o Celsius. 
Podemos imaginar el futuro microordenador de casa poseyendo un programa de con- 
versión general de todas estas cosas para nosotros. Los dos próximos ejercicios se 
basan en la escritura de programas para convertir. Tú sólo necesitas las ideas adqui- 
ridas en los programas que ya has visto. 


Ejercicio 1 
Escribe programas en BASIC que realicen las siguientes conversiones: 
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(a) Entrar un número que represente una longitud en pulgadas, y obtener esa 
longitud en centímetros, sabiendo que una pulgada son 2,54 ctms. 
(b) Entrar un número representando un peso en onzas, y Obtener ese peso en 
gramos, sabiendo que una onza equivale a 28,375 gramos. 
(Las respuestas a los ejercicios aparecen al final de cada unidad con las respues- 
tas a las PF.) 


Ejercicio 2 ] 

Cualquier conversión implica “factor de onversión x número a convertir” por 
lo que es posible escribir un programa de conversión general donde tú entres dos 
números cada vez que lo uses: el factor de conversión y el número a convertir. Escri- 
be un programa general que lo haga. 


1.13 La sentencia comentario: REM 


La sentencia REM es la sentencia de comentario. Nos permite dar título a un 
programa o introducir cualquier comentario en el programa. Por ejemplo, dentro 
del cuerpo del programa, nos ayuda a identificar qué hace esa parte del programa. 
La sentencia REM no es ejecutada por el computador y sólo está para beneficio del 
programador o usuario del programa, es decir cuando el computador ve REM al prin- 
cipio del programa o de una línea ignora el contenido de la línea. 

El próximo programa es para calcular porcentajes y por eso le vamos a dar 
un título en nuestra primera sentencia, que será 10 REM **Cálculo de Porcentajes**. 
Los asteriscos no tienen otra función que la de dar énfasis al título. También usamos 
REM para explicar trozos del programa que sean difíciles de entender, como verás 
más adelante. REM se obtiene de la tecla E, cuando el computador está en modali- 
dad K. 


Ejemplo 3 
Escribe un programa BASIC para entrar dos números y sacar el segundo como 
un porcentaje del primero. 


Recuerda Porcentaje = (segundo + primero)X 100. 
Solución 
10 REM **Cálculo de Porcentajes” * (Programa titulado, por medio 
20 INPUT f de la sentencia REM) 
30 INPUT s 
40 LET p=(s(f)*100 
50 PRINT p 
60 STOP Programa 12 Cálculo de porcentajes 
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Ejecuciones típicas 


RUN 
L. 57 
L 74 
129.82456 


9 STOP statement, 60:1 


RUN 
L 74 
L. 5 
77.027027 


9 STOP statement, 60:1 


[K] Programa 12. 


1.14 Aritmética compleja 


Hemos llegado a la etapa en la que podemos utilizar el computador como si 
fuese una simple calculadora con las cuatro Operaciones básicas, pero pronto querre- 
mos emplear más a fondo la aritmética. El BASIC generalmente nos permite plan- 
tear ecuaciones de forma familiar. Podemos usar paréntesis para agrupar ciertos va- 
lores, y cuando el BASIC evalúa una expresión trata con los valores dentro del pa- 
réntesis primero. Luego atiende la multiplicación o división y, finalmente, suma y resta. 

Este orden de preferencia para realizar las operaciones aritméticas se comenta 
en otra unidad más adelante, pero verás pronto que ese orden responde a la forma 
de hacer los cálculos naturales. 

Déjanos explicarte lo que significa. 


Ejemplo 4 
Escribe las siguientes expresiones en BASIC: 
l. ab+c 2. a(b+c) 3. a 
b+c 
Soluciones 
1. atb+c 


El orden de las reglas precedentes nos dice que primero se evaluará a*b 
y luego se sumará c. Si no te gusta esto puedes escribir (a*b)+ce pero los 
paréntesis no son esenciales aquí. 


2. a*(b+c) 
Observe que, así como se necesitan paréntesis en a(b +c) también se necesi- 
tan en a*(b+c). 

3. a/(b+c) 

Ahora procura hacerlo tú solo. 


sE de lo siguiente, como expresiones BASIC: 
l. abc 
2. ab 
”n 
3. a+b 
EN 


Ejercicio 3 

Ahora que has escrito las expresiones BASIC de la FP 8, escribe un programa 
que te permita entrar tres números (a, b y c) e imprime los valores de las expresiones 
de la FP 8. 


1.15 Impresión de literales 


Tú has visto ya que podemos imprimir los valores de las ubicaciones de memo- 
ria. Descubrirás a lo largo del curso que la función PRINT es muy versátil. Uno 
de los usos de esta sentencia es la de imprimir mensajes en la pantalla, para orientar 
al usuario durante la ejecución de un programa. Estos mensajes se denominan usual- 
mente advertencias. Ya vimos que cuando se encuntra una sentencia de entrada du- 
rante la ejecución de un programa, aparece una [L] en la pantalla para recordarnos 
que es necesario introducir datos. En un programa complejo, aparecerán bastantes 
[L] y nos llenará de confusión porque no sabremos a cuál de los diversos datos de 
entrada se está refiriendo. Las advertencias generadas mediante sentencias PRINT 
son muy útiles en tales circunstancias. 

Es muy fácil hacer que una computadora lance un mensaje recordatorio en la 
pantalla. Sólo neceitas una línes como ésta: 


20 PRINT "Mensaje” 


Esto simplemente imprime 
Mensaje 


en tu pantalla. 
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En otras palabrasa, todo lo que aparezca encerrado entre comillas dobles des- 
pués de la palabra PRINT, se imprimirá exactamente como se escribió. Observa que, 
como en el caso de la sentencia REM, el computador no ejecuta las palabras entreco- 
milladas. Así 


20 PRINT "a+b” 
arrojará 
a+b 


en tu pantalla y el computador no efectuará ninguna suma. 
El siguiente ejemplo demuestra el uso de PRINT ” ” para recordar al progra- 
mador y al usuario lo que el programa está haciendo. 


Ejemplo 5 
Escribe un programa BASIC para convertir una temperatura dada en grados 
centigrados a grados Fahrenheit. 


Recuerda f = (9/5)*c+ 32 
donde f = temperatura Fahrenheit 


y c = temperatura Centíigrado. 
Solución 
10 REM **Centígrados a Fahrenheit** 
20 PRINT "Entrar siguiente temperat. en Cent.” -—————— Mensaje que precede a la 
30 INPUT c sentencia de entrada, por lo 
40 PRINT c que el mensaje aparece antes 
50 LET f=(9/5)*c +32 que la [L] 
60 PRINT "Esta temp. en Fahr. es” 
70 PRINTf 
80 STOP Programa 13 Conversión temperatura 


Ejecución típica 


RUN 

Entrar siguiente temperat. en Cent. 
16 

Esta temp. en Fahr. es 

60.8 


STOP statement, 80:1 


[K] Programa 13. 
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Objetivos de la Unidad 1 


Ahora que has completado esta Unidad, a ver si eres capaz de: 


Escribir programas simples usando: 

Numeración de líneas 

INPUT 

LET 

PRINT 

Ubicaciones de memoria identificadas por una sola letra o una letra 


seguida de un solo dígito 


Copiar de una ubicación a otra 
Modificar ubicación 

+ —*/ 

O) 

Constantes numéricas 

REM 

PRINT ” ” 


Saber cuándo se utiliza: 
ENTER 
RUN 


Saber responder a: 
Fin de ejecución/mensajes de error (ejemplo STOP statement, 40:1) 


oO KE 


Respuestas a PF y Ejercicios 


PF 1 

A B 

1 (c) 
2 (e) 
3 (8) 
4 (a) 
5 (b) 
6 (£) 
7 (d) 


40 


na 


PF 2 


(a) y (e) se ejecutarán como Programa 1. 
(b) se pide imprimir la suma antes de que se calcule. 


(c) 


PF 3 


y (d) se pide calcular la suma antes de introducir el segundo número. 


Entrada 


50 STOP 


PIO 
| 


PRO 
| 


D 
L 46 D 
R 


| Ejecución 


9 STOP statement, 50:1 
LIST K 


5 REM **FP 3** 

10 INPUT primero 

20 INPUT segundo 

30 LET suma= primero + segundo 
40 PRINT suma 

50 STOP 


Listado 


L 12.83 
L 48.95 
61.78 


Ejecución 


UU 


9 STOP statement, 50:1 

RUN 

L 17.0009 

L —29.2629 
—12.362 


Ejecución 


| 
===" | 


DUO 


9 STOP statement, 50:1 


¿Has notado que este programa ha tratado números negativos y fraccionales? 


PF 4 
(a) 
(b) 
(c) 
(d) 
(e) 


OK 

No, empieza con un digito en lugar de una letra. 

No permitido en todos los sistemas. (10 son dos dígitos, no 1l.) 
No, + no es simbolo aceptable en nombre de variable. 

No, usa dos letras. (Funcionaría en otras máquinas.) 
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(1) OK 
(g) OK 
(h) No, *—” no es símbolo aceptable. 
(1) No, *+” no es símbolo aceptable. 
(Y OK 


PF 5 
(a) 3+) (b) 3*7 (c) 8/4 (d) 5*Q+8) (e) 30/(3 +2) 
(1) 24—(4*3) (e) 5*6*7  (h) 81—(27*2) 


PF 6 
(a) 17 (b) 10 (c) 100 (d) 5 (e) 10/3 or 31/3 or 3.33 ... 
(1 4 (8) 50/3 or 162/3 or 16.66 ... (h) 75 


PF 7 
LA B C 2. A B C 
12 ] 20 
12 5] ] 20 60 
12] 5] 204 20 [60 5] 
12 5 204 65 60 5 


Ejercicio 1 


(a) Programa 14 Ejecuciones típicas 
5 REM **Programa 14** RUN 
10 INPUT 11 0.18 Primera pasada 
20 LET 12=2.54*11 30.48 
30 PRINT 12 
40 STOP 9 STOP statement, 40:1 


RUN 
ly 36 Segunda pasada 
91.44 


9 STOP statement, 40:1 


K] Programa 14. 


(b) Programa 15 Ejecuciones típicas 

5 REM **Programa 15** RUN 

10 INPUT wi [lg] 10 Primera pasada 
20 LET w2=w1*28.375 283.739 

30 PRINT w2 

40 STOP 9 STOP statement, 40:1 


K] Programa 15 


Ejercicio 2 
Programa 16 


5 REM **Programa 16** 
10 INPUT v 

20 INPUT f 

30 LET n=f*v 

40 PRINT n 

50 STOP 


K] Programa 16. 


1. a*b*c 


RUN 
Segunda pasada 
1418.75 


9 STOP statement, 40:1 


aun. 
El 


9 STOP statement, 40:1 


2 Tercera pasada 


Ejecuciones típicas 


RUN 

L Usado para onzas 
L 0 375 a gramos 

454 


9 STOP statement, 50:1 


RUN 

lu 36 Usado para pulgadas a 
[Y 2.54 centímetros 

91.44 


9 STOP statement, 50:1 


2. a*b/c (a*b)/c también es correcto, aunque los paréntesis innecesarios 


3. (a+b)/c 


Ejercicio 3 
Programa 17 


5 REM **Programa 17** 


10 INPUT a 
20 INPUT b 
30 INPUT c 


40 LET r=a*b*c 


50 PRINT r 


60 LET r=(a*b)/c 


70 PRINT r 


80 LET r=(a+b)/ 


90 PRINT r 
100 STOP 


Programa 17 


A 


Calcula primera expresión y la imprime 


calcula segunda expresión y la imprime 


== Calcula tercera expresión y la imprime 
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Observa que podemos usar “r? como ubicación para las tres respuestas porque 
copiamos (imprimimos) cada respuesta antes de que modifiquemos con la siguiente 


respuesta. 


Ejecuciones típicas 


RUN RUN 
ME o 13 
O. -2f (13 
(0 55.2 DD 13 
—19375.2 2197 
—6.3586957 13 

2 


—0.25362319 


9 STOP statement, 100:1 9 STOP statement, 100:1 
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2.1 Introducción 


Los programas que consideramos en la Unidad 1 “ran 1. -* directos. Empeza- 
ban su proceso en la sentencia con numeración más baja y continuaban en orden 
numérico hasta finalizar la ejecución en la sentencia de numeración más alta. Una 
cosa que hacen muy bien las computadoras es realizar cálculos repetitivos; otra es 
su habilidad para tomar decisiones. Ambas características implican cambios en la 
secuencia de ejecución de un programa. Esta Unidad te enseñará algunas sentencias 
que te permitirá escribir programas de este tipo. Pero antes vamos a conocer un 
nuevo tipo de la sentencia PRINT. 


2.2 PRINT ..., 


En la Unidad 1 escribimos un programa (Ejemplo 3) para obtener un número 
como porcentaje de otro. En la pantalla, el cálculo y el resultado aparecían en la forma: 


DO 57 
O 74 
129.825 


Obviamente hubiese sido mejor si la respuesta incluyese la palabra “Porcentaje” 
para aclarar el suceso. Esto es muy fácil de lograr, cambiando la línea 50 de 
50 PRINT p a 


50 PRINT "Porcentaje”, p 


El efecto de esto es: 


Versión de línea 50 Resultado en pantalla 
50 PRINT p 129.825 
50 PRINT "Porcentaje", p Porcentaje 129.825 
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La sentencia PRINT ”Porcentaje”, p tiene cuatro elementos. 


| 


PRINT] [”Porcentaje”] [, J[p ]—La variable cuyo valor se ha de imprimir 


—<— La coma dice al computador que imprime 
p en la posición 17 de la página 


” 


- ——— 


” identifica las palabras que han de salir 


en la pantalla 


a Instrucción de imprimir 


Podemos usar PRINT ..., para mejorar el programa de porcentaje de la Unidad 1. 
Al mismo tiempo, podemos mejorar el aspecto del programa utilizando la impresión 


de literal en la sentencia PRINT ” 


Programa original 


10 
20 
30 
40 
50 
60 
70 
80 


REM **Cálculo de Porcentajes* * 
INPUT f 

PRINT f 

INPUT s 

PRINT s 

LET p=(s/f)*100 

PRINT p 

sToP 


Programa nuevo 


REM **Cálculo de Porcentajes* * 
Print "Entrar primer número” 
INPUT f 

PRINT f 

PRINT "Entrar segundo número” 
INPUT s 

PRINT s 

LET p= (s/f)*100 

PRINT "Porcentaje”, p 

STOP 


Programa original: ejecución típica 


80 
37 


” que vimos en la sección 1.15. 


Programa 1 mejorado 
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Nuevo programa: ejecución típica 


Observa el uso de literales en líneas 15 y 35, junto con PRINT ”” 


RUN 

Entrar primer número ——_—_—____—_—__—— 
80 

Entrar segundo número *—_——__—_—_—_—_—_—_— 
37 

Porcentaje OI 


¡A 


efecto de línea 
efecto de línea 


efecto de linea 


posición 17 


” 


15 
35 
70 


, y la impre- 


sión de los datos de entrada, que hacen el programa mucho más comprensible al 
que lo usa. 


[K] Programa 1. 


Zonas de impresión 
Hay dos zonas de impresión en la pantalla del Spectrum. La zona 1 está a la 
izquierda de la pantalla; la zona 2 se establece por el uso de la coma en la PRINT. Así 


PRINT "Zona 1”, "Zona 2” 


da como resultado 


Zona 1 Zona 2 


PRINT "Porcentaje" p dio 
Porcentaje 46.25 


mientras que 


PF 1 


PRINT "Porcentaje”:p dará 
Porcentaje 46.25 


¿Cuál sería el resultado en la pantalla de estas líneas? 


(Asume a=48, b=8, c=6 en cestas preguntas). 


(a) 
(b) 
(c) 
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PRINT "Area”;¡a 

PRINT "Longitud”; b, “Ancho”; c 
PRINT "Longitud”;"Ancho” 
PRINT E,2 


Escribe líneas PRINT en BASIC que impriman en la pantalla las siguientes pa- 


labras en las zonas que se muestran: 


Zona 1 Zona 2 
(d) Longitud 8 
(e) Longitud 8 
Ancho 6 
Area 48 
(5 Longitud Ancho 


2.3 Repeticiones y GO TO 


Suponte que quisieras utilizar el programa 1 para calcular todos los porcentajes 
de una prueba tomada en una clase de alumnos. tendrías que ejecutar el programa 


una y otra vez, arrancándolo por medio de RUN. Ejemplo: 


RUN 

Entrar primer número 
80 

Entrar segundo número 
42 

Porcentaje 52.5 


9 STOP statement, 60:1 


RUN 

Entrar primer número 
80 

Entrar segundo número 
19 

Porcentaje 23.75 


9 STOP statement, 60:1 


Figura 1 Uso repetido del programa de porcentajes. 


Hubiese sido más fácil si, después que el computador haya calculado el primer 
porcentaje, retornara al principio de los cálculos y nos pidiese la siguiente puntua- 


ción. Esto lo conseguiremos usando la sentencia 


GO TO número de línea 
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que hará que el programa se dirija a la línea que le digamos. He aquí el programa 
de porcentajes vuelto a escribir, usando esta técnica: 


10 REM **Puntuaciones a porcentajes** 

20 PRINT "Entrar el número máximo de puntuaciones” 

30 INPUT t 

40 PRINT t 

50 REM **Inicio de entrada** 

60 PRINT "Entrar siguiente puntuación” 

70 INPUT m 

80 PRINT m 

90 LET p=(m/t)*100 

100 PRINT ”Porcentaje”,p . 
110 GOTO 50 Programa 2. Programa de porcentajes 
120 STOP para uso repetido 


GO TO es una palabra clave, que se halla en la tecla G. Observa que las líneas 20 
y 30 nos aseguran que sólo tenemos que introducir una sola vez la máxima puntua- 
ción de la prueba. El cálculo se lleva a cabo en las líneas 50 a 100 y, al llegar a 
la 110, el programa retorna a la línea $0 para pedirnos otra puntuación. Esta es 
una ejecución típica: 


RUN 

Entrar el número máximo de puntuaciones 
80 

Entrar la siguiente puntuación 
42 

Porcentaje 52:5 
Entrar la siguiente puntuación 
67 

Porcentaje 83.75 
Entrar la siguiente puntuación 
19 

Porcentaje 23.75 
Entrar la siguiente puntuación 
55 

Porcentaje 68.75 


Entrar la siguiente puntuación 


Recuerda que si la pantalla se llena, las líneas avanzan hacia arriba, perdiéndose 
las de la parte superior. 

La sentencia GO TO interrumpe la secuencia normal de ejecución del programa 
por número ascendente de línea. Tan pronto el programa lee GO TO, transfiere in- 
condicionalmente el control al número de línea que figura en la sentencia. Llamado 
a veces “salto incondicional”. 


[K] Programa 2. Pulsa SYMBOL SHIFT y A (para hacer STOP) luego ENTER 
detener el programa: te dará el mensaje 


H STOP in INPUT, 70:1 
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PF 2 
El siguiente programa halla el cuadrado de números. Añade una línea GO TO 
que le permite volver a pedir número una y otra vez. 


5 REM **Cálculo de Cuadrados** 
10 INPUT n 
20. LETS=n*n 
30 PRINT s 
40 STOP Programa 3. Cálculo de cuadrados 


Escribe y ejecuta las líneas 5 a 40. Añade la línea extra y ejecuta el nuevo 
programa. 


2.4 Estilo de programación 


La sentencia GO TO nos ayudó de alguna forma. Sin embargo, aún quedan al- 
gunos cabos sueltos, como la [L] al final de la ejecución. Al llegar a la línea 110 
del programa 2 el control siempre se devuelve a la línea 50, que genera la petición 
de una nueva entrada; por esto es la [L] . El programa, pues, está encerrado en 
un bucle perpetuo del que no puede salir. La única forma de parar el programa 
es interrumpiéndolo por medio de la tecla STOP. 

Obviamente, tener un programa que vuela indefinidamente es un mal estilo de 
programación, pero vamos a evitarlo dentro de poco. Debemos advertirte que el uso 
de GO TO puede ser peligroso. Como hemos dicho, esta sentencia te permite saltar 
O bifurcar virtualmente a cualquier posición en el programa, que por lo visto hasta 
ahora parece de un uso muy simple. Pero como esta sentencia nos permite saltar 
repentinamente a cualquier punto del programa, se usa muy a menudo de esta forma 
haciendo que la estructura lógica de la solución esté marcada por “saltos de conve- 
niencia” a otras partes del programa, en lugar de seguir la estructura lógica del análi- 
sis del problema. De todos modos, usaremos con prudencia el GO TO a lo largo del 
curso. La usaremos cuando tengamos claro el problema. Esperamos que tomes nues- 
tro ejemplo y uses el GO TO lo menos posible. Hay que evitar su uso indiscriminado. 

Observarás que tenemos la costumbre de usar como línea de referencia de un 
GO TO una que contiene REM. Esto permite dar legibilidad y comprensión al salto 
por medio de comentarios, a la hora de estudiar el listado del programa. Y otra 
cuestión importante es que nos capacita para quitar y añadir líneas, sin necesidad 
de cambiar la referencia del GO TO. 
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2.5 IF ... THEN GO TO ... 


El problema que tenemos pendiente es cómo indicar a la computadora que he- 
mos llegado al final de la lista de puntuaciones. Cuando los cálculos se hacen a ma- 
no, vemos claramente cuando no hay más datos que procesar, o, si no, montándo- 
nos algún sistema de cuenta. Dentro de un momento veremos cómo podemos hacer 
que el computador cuente para nosotros, pero antes introduzcamos algo que sirva 
como indicador de final. 

Un método es introducir un dato imposible para la lógica del problema. Por 
ejemplo el número —9999. ¡No podemos esperar que haya nadie que saque una pun- 
tuación de —9999! A esto se le denomina falso valor o valor de terminación. Noso- 
tros queremos que el programa funcione en tanto se le introduzcan datos apropia- 
dos, pero que deje de funcionar en el momento que se le introduzca —9999. En 
otras palabras, queremos ser capaces de escribir un programa con la siguiente estruc- 
tura lógica: 


l. Empezar. 

2. Entrar el total de puntuaciones. 

3. Entrar la siguiente puntuación. 

4. Si este valor es igual a —9999 entonces ir a la línea 8, si no, seguir con 
la línea S. 

5. Calcular el porcentaje. 

6. Imprimir el porcentaje. 

7. Irala línea 3. 

8. Parar. 


Figura 2 Detención del cálculo del porcentaje. 


Afortunadamente hay una sentencia BASIC que lleva a cabo la decisión de la 
línea 4. Es: 


IF. ... THEN GO TO número de línea 


A Condición que ha de cumplirse para que el programa salte a la 
línea que se indica. 


THEN se obtiene de SYMBOL SHIFT y G; GOTO se obtiene pulsando la tecla G. 
De modo que lo que tenemos que hacer es traducir la sentencia 4 como 


110 IF m=-—9999 THEN GO TO 170 


y aplicarla al programa 4. Esta sentencia significa: si el valor encontrado en .m es 
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igual a —9999, entonces salta a la línea 170, de otro modo continúa ejecutando la 
siguiente sentencia después de la 110. La sentencia de la figura 2 “si no, seguir con 
la línea 5” no está traducida al BASIC porque es implícita: bien salta la secuencia 
o la sigue. 


10 REM **Porcentajes** 
20 REM **Puntuaciones totales** 
30 PRINT "Entrar el número máximo de puntuaciones” 
40 INPUT t 
50 PRINT t 
60 REM ** Inicio del bucle "siguiente puntuación'** 
70 PRINT "Entrar siguiente puntuación” 
80 INPUT m 
90 PRINT m 
100 REM **—-29999 significa 'se acabó'** 
110 |F m=-—9999 THEN GO TO 170 
120 REM **Cálculo** 
130 LET p=(m/t)*100 
140 PRINT "Porcentaje”,p 
150 REM **Volver a la siguiente entrada* * 
160 GO TO 60 
170 REM **Listo** 
180 STOP 
Programa 4 de cálculo de porcentaje con valor de terminación 


Usas el programa 4 de la misma forma que el programa 2 hasta que hayas en- 
trado la última puntuación que se haya de convertir a porcentaje. Entonces, introdu- 
ces la puntuación —9999 y el programa finaliza. 


He aquí una ejecución típica 


RUN 

Entrar el número máximo de puntuaciones 
80 

Entrar siguiente puntuación 
43 

Porcentaje 53.75 
Entrar siguiente puntuación 
29 

Porcentaje 36.25 
Entrar siguiente puntuación 
62 

Porcentaje 7175 


Entrar siguiente puntuación . y 
— 9999 puntuación final 


9 STOP statement, 180:1 


[K] Programa 4 y úsalo para convertir algunas puntuaciones que te inventes. 
Termina la ejecución con —9999, 
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PF 3 
Terminaste la PF 2 con el programa: 


5 REM **Cálculo de Cuadrados” * 
10 INPUT n 

20 LET s=n*n 

30 PRINT s 

40 GOTO 5 

50 STOP 


pero, como el programa de porcentajes, nunca acaba. Modifícalo para introducir 
un valor de terminación. 


2.6 Desigualdades 


Fue muy útil poder usar la expresión m=-—9999 en la sentencia IF ... THEN 
GOTO... para determinar si debía llevarse a efecto el salto o no. La sentencia quie- 
re decir si m=-—-9999 es verdad entonces salta, si no, continúa. El signo '=' estable- 
ce una relación entre m y —9999. 

En el Espectrum, cada signo matemático tiene una tecla independiente, como 
se muestra aquí: 


Signo Significado Forma de obtención 
= iguales SYMBOL SHIFT L 
< menos que SYMBOL SHIFT R 
> mayor que SYMBOL SHIFT T 
<= menor que o igual a SYMBOL SHIFT Q 
>= mayor que o igual a SYMBOL SHIFT E 
<> desiguales SYMBOL SHIFT W 


El BASIC permite expresiones para incluir relaciones; 


Relación Ejemplo Significado 
> a>b El valor almacenado en a es ma- 
yor que el valor en b 
< x<y El valor almacenado en x es me- 


nor que el valor en y 


54 


¿Verdadero o falso? 

Considera la expresión A<B. Si A=2 y B=5 entonces A<B es verdadera, 
porque 2 es menor que 5. Considera la misma expresión con los valores A=2 y 
B=1. Ahora A<B es falsa, porque 2 no es menor que l. Similarmente si A=2 
y B=2 entonces A<B es falsa, ya que 2 no es menor que 2. Al escribir programas 
encontramos útil con frecuencia poder saber si una sentencia que implica una rela- 
ción es verdadera o falsa. A esto se le llama el estado lógico de la proposición. Ejemplo 


Proposición Estado lógico 
3>2 Verdadero 
7<7 Falso 


Esto es fácil con los números positivos, pero se complica al entrar en juego 
valores negativos. En caso de duda, recuerda la línea numérica: 


L == A e SL O A A RA 


Figura 3 Línea numérica. 


Un número situado en la línea es siempre menor que cualquiera de los de su 
derecha, y al revés. 


Ejemplo 1 
Prueba si las siguientes expresiones son verdaderas o falsas en función de los 
valores dados a A y B. 
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Solución 
Para hacerlo, anotamos las expresiones y sus valores en la misma línea de cada 
una, para decidir si es verdadera o falsa para cada caso particular. Así que la solu- 


ción es: 
EPs o cr 


PF 4 
Completa la tabla siguiente para determinar si las expresiones dadas son verda- 
deras O falsas para los valores dados. 


Ahora estamos en disposición de usar relaciones que nos permitan controlar 
los saltos de secuencia de un programa, bajo ciertas condiciones. 
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Ejemplo 2 
En el siguiente fragmento de programa, después de ejecutarse la línea 30, ¿el 
control pasará a la línea 40 o a la 100? 


10 LET a=—3 

20 LETb=2 

30 IF a+b>0 THEN GO TO 100 

40 Programa 5 


Solución 
—3+2>0 es falso, por lo que el salto a 100 no ocurrirá y el control pasará 
a la línea 40. 


PF 5 
En los siguientes fragmentos de programa, después de ejecutarse la línea 30, 
¿pasará el control a la línea 40 o a la 100? 


(a) 10 LETa=7 (d) 10 LETm=3 
20 LET b=-—8 15 n=—4 
30 IF a—b<0 THEN GO TO 100 20 LET p=-—2 
40 30 IF m—n<n—p THEN GO TO 100 
40 
(b) 10 LETx=3 (e) 10 LET r=1 
20 LET y=-—3 20 LETs=-—2 
30 IF x/y=—1 THEN GO TO 100 30 IF r+s>—1 THEN GO TO 100 
40 40 
(c) 10 LET p=—1 
20 LET q=—3 
30 IF p/q=—1 THEN GO TO 100 
40 


Programas 6-10 
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2.7 Diagramas 


Como hemos dicho, la tarea principal del programador es encontrar una forma 
de expresión clara que permita contemplar la estrategia de la solución para un pro- 
blema determinado. En este punto debemos presentarte la palabra más fea de la 
jerga de computadoras: algoritmo. Esta palabra se usa para significar la estrategia 
general de una solución, y se define por una serie de instrucciones o pasos de proce- 
dimientos para la solución de un problema. Verás que en este caso no se menciona 
la computadora. Aparte de eso, la definición de programa y algoritmo es idéntica. 
Un programa, pues, es un algoritmo escrito para una computadora. 

Hay tres maneras básicas de establecer un algoritmo: 


(i) una descripción 
(ii) codificación BASIC 
(iii) un diagrama 


Los diagramas son una especie de cartas gráficas que, mediante una simbología 
apropiada nos muestra el planteamiento de la solución. 

Te mostramos las diferentes funciones dentro de un algoritmo, mediante dife- 
rentes gráficos. 


entrada 
salida 


DECISIONES verdadera 
FUNCIONES DE 
ENTRADA Y 
SALIDA 
ASIGNACIONES ARRANQUE/PARADA 


Cata) 


Una —>— muestra la secuencia del algoritmo, y las figuras contienen des- 
cripciones de funciones. 
El primer programa de la Unidad 1 puede ser expresado en forma de diagrama así: 
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arranque 


entrar 
PRIMERO 
número 


10 


2 20 
entrar 
SEGUNDO 
número 
3 30 
sumar PRIMERO 
a SEGUNDO 
y almacenar 
en SUMA 
4 40 


visualizar 
SUMA 


Figura 4 Diagrama del Programa 1 de la Unidad 1. 


Las descripciones de las funciones en las figuras están en lenguaje normal y 
pueden ser entendidas por cualquiera que no tenga conocimientos de BASIC. A este 
respecto decimos que debemos procurar mantener las descripciones independientes 
de lenguajes. Los números al margen izquierdo de las figuras se refieren a las senten- 
cias del algoritmo descriptivo de la Figura 4 en la Unidad 1, y los números a la 
derecha de las figuras a las sentencias BASIC del Programa 1 de la Unidad 1. 


PF 6 
Construye un diagrama para el programa de porcentajes (programa 1). 


La figura de decisión 
Has visto cómo afectan las decisiones BASIC en un programa, usando IF... 
THEN ... La lógica es: 
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Si (IF) la proposición es verdadera entonces (THEN) ir a la línea X 
de lo contrario (la proposición es falsa) continúa con la siguiente línea. 


La idea básica de bifurcar a la línea X o continuar en la siguiente línea se expre- 
sa en el diagrama por dos líneas de salida de la figura. La decisión de la línea 110 
del Programa 4: 


40 IF m = —9999 THEN GO TO 170 


podría expresarse en forma de lenguaje independiente 


| ENTRADA 


VERDADERO 


-- 


PUNTUACION = FICTICIA 


La proposición PUNTUACION = FICTICIA puede expresarse como una 
pregunta 


ENTRADA 


es SI 
PUNTUACION = FICTICIA > 
O 


NO y 


El estilo del diagrama es a tu gusto. La prueba de la efectividad del diagrama 
está en si eres capaz de interpretar con facilidad el algoritmo algún tiempo después 
de su composición. O bien, si tratas de comunicar tus ideas a una tercera persona, 
si ella es capaz de interpretarlo fácilmente. 
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A continuación damos un diagrama para el Programa 4: 


arranque 


entrar 
puntuaciones 
TOTAL 


10 


30,40,50 


A 


entrar 
siguiente 60,70,80,90 
PUNTUACION, 
ES 110 á 180 


PUNTUACION 


4 = FICTICIA 
? 
calcular 
PORCENTAJE | 140 
160 
A visualizar 140 


PORCENTAJE 


Figura 5 Diagrama para el programa de porcentajes. 


Los números de la derecha se refieren a las sentencias numeradas en el progra- 
ma. La sentencia 160 GO TO 60 está representada por un bucle de retorno a la figura 60. 


PF 7 
Escribe un diagrama para el programa que escribiste en contestación a FP 3. 
Observa cómo la introducción de los diagramas nos ayuda a planificar estructu- 


ras de programas que vamos a escribir. 
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2.8 Contadores 


Como hemos dicho, las computadoras son buenas para hacer trabajos repetiti- 
vos. Sin embargo, si queremos controlar esas actividades en lugar de arrancarlas y 
pararlas, como se dijo en el último ejemplo, debemos usar la computadora para 
que nos cuente las repeticiones. Si debemos llevar a cabo un determinado número 
de veces una actividad, comenzamos contando. la primera de ellas, añadimos uno 
por cada subsiguiente actividad, hasta que se llegue al límite predeterminado. Pode- 
mos reflejar esto con el siguiente diagrama: 


inicia el 


contador 


actividad 


sumar 1 
a contador 


ese 
contador 
menor o igual 
al limite 


Esta es una FIGURA DE PROCESO; se utiliza para 
mencionar una rutina compleja, cuyos detalles ya han sido 
especificados; puede ser el extracto de un diagrama. 


Figura 6 Un contador en un diagrama. 


Observa que el juego de contador tiene tres partes: 


(i) El procedimiento que pone el contador al valor inicial; 
(11) El procedimiento para sumar 1 al contador cada vez que se complete la 
actividad; 
(111) El procedimiento para detener el contador y abandonar la actividad cuando 
ésta ha sido ejecutada el número de veces requerido. 
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PF 3 


¿Cuántos números serán introducidos en los diagramas? 


(a) 


poner contador 
a0 


sumar | 
a contador 


entrar 
número 


Si contador 


a <10? 


Figura 7a 


PF 9 


(b) 


poner contador 
a0 


sumar 1 
a contador 


parar 


Figura 7b 


Haz que el siguiente programa lea 5 números completando la sentencia IF... 
THEN GOTO... 


5 
10 
15 
20 
30 
40 
50 
55 
60 


REM **PF 9** 

LETe=0 

REM **leer siguiente número** 
INPUT n 

IF c= THEN GO TO 55 

LET c=c+1 

GO TO 15 

REM **Listo** 

STOP 


Programa 11 
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Ejemplo 3 
Escribe un programa BASIC para calcular e imprimir los porcentajes de pun- 
tuación para un grupo de cinco alumnos. 


Solución 
Si asumimos que la “actividad” en la figura de proceso del diagrama de la Figura 
6 era 


entrar puntuación 
| calcular el porcentaje 
| imprimir el porcentaje 


AR | 


entonces podemos mostrar el algoritmo de la solución en forma de diagrama. 


30,40,50 


55 


poner 
contador 


70,80,90 
120,130, 
140 


enirar puntuación 
calcular porcentaje 


visualizar porcentaje 


sumar 1 
a contador 


Figura 8 Diagrama para 
cálculo de porcentaje de 5 
puntuaciones. 
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Esto nos dice la estructura del programa que necesitamos escribir. El programa 


actual se podría escribir modificando el Programa 4 para que incorporase el conta- 


dor. 
10 
20 
30 
40 
50 
55 
60 
70 
80 
90 

120 

130 


Así que el programa requerido es: 

REM **Porcentajes** 

REM **Puntuaciones totales** 

PRINT "Entrar número total de puntuaciones” 

INPUT t 

PRINT t 

LET c=1 < Iniciar contador 

REM ** Inicio del bucle "Siguiente puntuación'** 

PRINT "Entrar siguiente puntuación” 

INPUT m 

PRINT m Incrementar contador 
REM **Cálculo* * 
LET p=(m/t)*100 


140 PRINT "Porcentaje”,p Añadimos esta línea para 
145 LETc=c+1 *¡ > ES 
a CU E averiguar que pasa a conta 
152 PRINT "contador aquí =",c dor en este punto 
160 IF c<=5 THEN GO TO 60 
170 REM **Listo** £ — 5 ¿Cuenta completa? 
180 STOP 
Programa 12. Incorporación de contador al programa de porcentaje. 
RUN 
Entrar número total de puntuaciones 
75 
Entrar siguiente puntuación 
57 
Porcentaje 76 
Línea 150 
contador aquí = 2 
Entrar siguiente puntuación 
62 
Porcentaje 82.666667 
Línea 50 
contador aquí = 3 
Entrar siguiente puntuación 
43 
Porcentaje 5/:333339 
Línea 150 
contador aquí = 4 
Entrar siguiente puntuación 
39 
Porcentaje 52 
Línea 150 
contador aquí = 5 
Entrar siguiente puntuación 
70 
Porcentaje 93.333333 
Línea 150 
contador aquí = 6 — 


ER 
Nota: Saliendo del bucle el va- 
lor del contador es 6 


K] Programa 12. 
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2.9 Comparaciones 


Hemos visto cómo el BASIC mos permite comparar dos números. A menudo 
deseamos decidir si un valor en particular es mayor O menor que otro. Este es un 
proceso fundamenta! para clasificar elementos de datos. A lo largo del curso ya vere- 
mos métodos de clasificación con detalle, así que vamos a empezar con el caso más 
simple. 


Ejemplo 4 
Inventa un algoritmo en forma descriptiva para entrar dos números e imprimir 
el más grande de los dos. 


Comentario 

Hemos expresado nuestros algoritmos como diagramas en la mayor parte de 
esta Unidad, así que esta vez usaremos el método descriptivo presentado en la Uni- 
dad 1. 


Solución 
l. Inicio. 
2. Entrar primer número. 
3. Entrar segundo número. 
4. Si el primer número > segundo número entonces salta a 7 de lo contrario 


continúa en $, 
Imprime segundo número. 
Salta a 8. 
imprime primer número. 

8. Parar. 

Esta no es lá solución más limpia, pero está cercana a la ley del “primer inten- 
to”. Buscaremos soluciones más netas cuando volvamos a los métodos de clasifica- 
ción en otra Unidad, 


J3 0 tn 


Objetivos de la Unidad 2 


Ahora que has completado esta Unidad, mira si eres capaz de: 

Combinar literales y variables en sentencias PRINT 

Usar la coma para espaciar sentencias PRINT 

Usar GO TO para repetir el uso de un programa UU 
Usar un valor falso para terminar un programa 
Usar IF... THENGOTO +... 

Hallar el estado lógico de proposiciones incluyendo >, <, = U 
Construir diagramas o 
Insertar contadores en los diagramas y programas para controlar el uso 
repetido de un programa o diagrama. 
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Respuestas a PF y Ejercicios 


PF 1 

(a) Area48 

(b) Longitud8 Ancho6 

(c) Longitud Ancho 
8 6 

(d) PRINT “Longitud” b 

(e) PRINT "Longitud”,b 
PRINT "Ancho”.,c 
PRINT "Area" a 

(f) PRINT "Longitud”,"Ancho' 


PF 2 
Todo lo que necesitas es añadir 
35:60 TO 5 


PF 3 


o REM **Cálculo de cuadrados** 
10 INPUT n 

15 IF n=-—9999 THEN GO TO 45 
20 LETs=n*"n 

30 PRINT s 

40 GOTO 5 

45 REM **Listo** 

50 STOP 


Programa 13 


(Observa que este vajor de terminación no es tan satisfactorio como —9999, 
como falsa puntuación. No puedes tener una puntuación de —9999, pero sí podrías 
calcular el cuadrado de —9999; este programa debería rechazarlo.) 


PF 4 


Valores 


Proposición 


Expresiones Su valor 


Su estado lógico 
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Si has fallado, míralos otra vez en la línea numérica 


A O O. BapaO A a la izquierda de B significa A<B verdadero 
_,>A An A a la izquierda de B significa A >B verdadero 


PF 5 
(a) 40 (b) 100 (c) 40 (d) 40 (e) 40 


Tu computador puede ayudarte a resolver el problema. Las sentencias 


40 PRINT "40” 
y 100 PRINT "100" 


harán que la línea apropiada se imprima. los siguientes programas te muestran cómo 
resolver (a) y (b) de arriba. 


Programa para resolver (a) 


5 REM **Programa 14** 
10 LET a=7 
20. LETb=—8 
30 IF a—b<0 THEN GO TO 100 
40 PRINT "40" 
50 GO TO 999 
100 PRINT ”100” 
999 STOP Programa 14 


Programa para resolver (b) 


5 REM **Programa 15** 


10 LET x=3 

20 LETy=-—3 

30 IF x/y=—1 THEN GO TO 100 

40 PRINT ”40” 

50 GO TO 999 

100 PRINT "100" 
999 STOP Programa 15 


Efecto de la ejecución del Programa 14 


40 
9 STOP statement, 999:1 


Efecto de la ejecución del programa 15 


100 
9 STOP statement, 999:1 
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PF 6 


arranque 


entrar 
número 


PRIMERO 


entrar 
número 
SEGUNDO 


Dividir 
SEGUNDO por PRIMERO 
Multiplicar por 100. Guardar 
resultado en PORCENTAJE 


visualizar 
PORCENTAJE 


PF 3 
(a) 10  (b) 16 


PF 9 


30 IF c=4 THEN GO TO 55 


Listado completo: 


5 REM **PF 9** 


10 LET c=0 


PF 7 


arranque 


entrar 
NUMERO 


multiplicar 
NUMERO 
por sí mismo 


visualizar 
resultado 
del cálculo 


15 REM **leer siguiente número** 


20 INPUT n 


30 |Fc=4 THEN GO TO 55 


40 LETc=0+1 
50 GO TO 15 


55 REM **Listo** 


60 STOP 


a 
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UNIDAD 3 


Cadenas de caracteres 


¿Qué es una cadena de caracteres (string)? . 
Más sobre strings . 


PRINT.. 
INPUT * 5 a os 
Números y strings en sentencias PRINT 


Cartas tipo A A 
Modelos, archivos, READ con "DATA e 
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3.1 ¿Qué es una cadena de caracteres (string)? 


Las dos primeras unidades trataron del proceso de los números. La opinión 
pública ve a menudo las computadoras como 'deboradoras de números”, pero ésta 
no es, ciertamente, la principal función de una computadora, especialmente en un 
entorno comercial. En esta Unidad veremos cómo se puede utilizar una computado- 
ra para manejar caracteres, a través del lenguaje BASIC, 

Por carácter se entiende las letras del alfabeto en minúsculas y mayúsculas, los 
diez dígitos 0-9, signos de puntuación y ciertos caracteres especiales como éstos: 


! $H $ % 8 ( ) : + ; = ; / 
0 ¡ 2 3 4 5 6 7 8 9 z a < = > 2 
Q A B Cc D E F G H l y K L M N o) 
P Q R S T Ú v W Xx Y Z [ / ] 1 - 
£ a b Cc d e f g h i j k | m n (9) 
19) q r Ss t u V wW x y z [ | ] l (o) 

2. Co 0-5 1%. “DF. dd Á » 
<= >= <> 


Has aprendido a escribir programas usando números (3, 57, —92, etc.) y varia- 
bles (a, G, z, etc.). El BASIC nos permite introducir grupos de caracteres al compu- 
tador. 

Esos grupos de caracteres son llamados strings (cadenas). Algunos ejemplos son: 


GATO (una palabra) 

Margaret Thatcher (un nombre) 

29)227 (una mezcla de caracteres) 
ABS 123 W (una matrícula de coche) 


es decir, una cadena puede ser cualquier mezcla de caracteres —¡también el espacio 
es un carácter muy importante en una cadena! 

En lo que concierne al BASIC, un número es tratado como número cuando 
se va a usar en operaciones aritméticas, de otra forma se considera como una cadena 
de caracteres numéricos. Cuando miramos la matrícula de un coche o un número 
de teléfono, vemos un grupo de caracteres numéricos, pero no lo usaremos para 
realizar operaciones aritméticas. 


yal 


Ubicaciones de almacenamiento para cadenas 

¿Cómo podemos indicar a la computadora que el grupo de caracteres que intro- 
ducimos ha de ser tratado como números para aritmética o como cadena de caracte- 
res? La distinción se hace en BASIC, según el nombre que le damos a la ubicación 
de almacenamiento en la que vamos a colocar los caracteres. Si el nombre de una 
ubicación de almacenamiento es seguido por el símbolo $ entonces los caracteres 
que se almacenarán en ese lugar se tratarán como una cadena de caracteres. 

Viste en la Unidad 1 que las ubicaciones de almacenamiento para números en 
el ZX Spectrum están sujetas a estas reglas: 


(a) el primer dígito debe ser una letra 

(b) los siguientes dígitos, números o letras 
(c) pueden usarse espacios, pero se ignoran 
(d) mayúsculas o minúsculas, indistintamente 


Las ubicaciones de memoria para cadenas de caracteres en el BASIC del Spec- 
trum son las 26 ubicaciones AS, B$, C$, . . . Z$. Puedes usar mayúsculas; el compu- 
tador tratará igual a$ que A$. Para él es la misma ubicación. 

Utilizamos más las minúsculas que las mayúsculas, simplemente porque es más 
cómodo a la hora de teclearlas. 

Puedes leer en voz alta las ubicaciones de cadenas así: 


a$ a string o a dólar 
b$ b string o b dólar 


De modo que ahora puedes imaginar que un microordenador tiene dos áreas 
de almacenamiento de datos: una para números y otra para caracteres. Ver Figura 1. 


” ” con cadenas 

Usualmente tenemos que mostrar al computador que queremos nuestras cade- 
nas de caracteres tratadas como una cadena. Para ello ponemos ” ” a los extremos 
de la cadena. Así que escribimos 


10 LET q$= Hola” 
30 IF q$="Hola” THEN GO TO 80 
y así sucesivamente. 


PF 1 
¿Cuáles de los siguientes son nombres válidos para ubicar cadenas? 


(a) AS (b) m8 (c) 175 (d) B9 (e) c$3 (f) 8pS (8) 25 (h) k$ 
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SALIDA 


SISTEMA OPERATIVO 
Sia iaa Camandas 


CONTROL 


UNIDAD ARITMÉTICA 


Ubicaciones para caracteres 


Ubicaciones para números 


Figura 1 Un resumen de nuestro sistema. 


PF 2 
¿Cuáles de las siguientes son sentencias BASIC correctas? 


(a) LETA = 87 

(b) LET 8$ = "FRED” 
(c) LET M$ = 9583 

(d) LET K8 = "JAM POT" 
(e) LET L1” = 38 


3.2 Más sobre strings 


¿Qué amplitud puede tener una cadena? es una pregunta apropiada aquí. En 
otras palabras, ¿cuántos caracteres podemos introducir o sacar a imprimir como un 
solo grupo? El Spectrum permite amplitudes que van de acuerdo a la capacidad de 
memoria del modelo. Pero inicialmente en este curso, vamos a admitir que una ubi- 
cación de almacenamiento para cadenas puede albergar 40 caracteres, y que este lí- 
mite lo aplicaremos a la introducción e impresión de cadenas. Por eso queremos 
que pienses en dicha ubicación no como en un palomar, sino como en una ubicación 
con 40 subdivisiones, como ves en la Figura 2. 


std HH HH HH H4HHA 


Figura 2 Tamaño de ubicaciones de almacenamiento para cadenas. 


Hemos hablado de cadenas como si fuese algo nuevo, pero tú ya te las has 
encontrado en la Unidad 1. Allí usamos la sentencia PRINT para enviar mensajes que 
aparecían entre comillas. Después vimos en la Unidad 2 cómo la coma entre los 
elementos de una sentencia PRINT hacían que las cadenas se espaciaran entre sí a 
lo largo de la línea de pantalla o impresora. 


3.3. PRINT ...;... 


La disposición de los datos de información en la pantalla es muy importante, 
tanto si se trata de textos o de números. Cuando manejamos información textual, 
esto es, cadenas de caracteres, queremos que salgan como frases y no separadas por 
zonas en la pantalla. La sentencia PRINT ...;... consigue este efecto para nosotros. 
PRINT h$:t$ tomará los caracteres de la ubicación Af$ y los imprimirá en la parte iz- 
quierda de la pantalla, seguidos inmediatamente por los de la ubicación ff. 

En las siguientes páginas vamos a simular un servicio de registro de datos de 
un futuro no muy lejano, y usarlo para demostrar la entrada y salida de cadenas 
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de caracteres. Comencemos escribiendo un programa que simule un servicio de con- 
testación telefónica. 


10 REM **Tele answer** 


20 PRINT "Hello 

30 PRINT "Please state your phone number” 

40 INPUT t$ 

50 PRINT t$ 

60 PRINT — This prints a blank line 
70 PRINT "Hello”,t$ 

80 PRINT 

90 PRINT ”Hello”; t$ 

100 PRINT 

110 PRINT "Hello”;t$ 

120 PRINT 

130 PRINT "Hello”;” ";t$ 

140 STOP Programa 1. Impresión de string 


Para ayudarte a analizar este programa hemos puesto abajo un “traceo” al lado 
de la ejecución típica. El traceo indica que línea del programa tal línea en la salida. 


RUN Trace 
Hello +20 
Please state your phone number 290 
"[01” 58354 «+. .40,50 
Hello 58354 ...60,70 
Hello58354 . . 80,90 
Hello 58354 .. .100,110 
Hello 58354 . . 120,130 
Comentarios 


Trace 40  INPUTt$ generó ” [L]”. Nuestra respuesta fue 58354, que el computador 
trató como una cadena y no como un número. (Si hubiésemos escrito 
INPUT t, entonces 58354 hubiese sido tratado como un número. 

Trace 70 La PRINT...;... en la línea 70 imprime el 5 del número telefónico en 
la posición 16 de la línea de pantalla, mientras que 

Trace 90 La PRINT...;... de la linea 90 imprime el $ inmediatamente adyacente 
a la o de Hello. 


Ninguna forma es satisfactoria, pero: 


Trace 110 Líneas 110 y 130 muestran vías alternativas de introducir los espacios 

Trace 130 requeridos, bien imprimiendo HELLO Y (como en 110) o insertando la 
cadena V a su derecha en la sentencia de salida (como en 1307. (V quie- 
re decir un espacio.) 


A 


[K] Programa 1. 
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PF 3 
Estudia este programa y resuelve su salida por pantalla. Escribela en la parrilla 
de abajo. 
5 REM **Print layout example** 
10 PRINT "Print Layout” 
20 LET b$="BASIC” 
30 LET c$="Course” 
40 PRINT 
50 PRINT b$,c$ 
60 PRINT 
70 PRINT b$;c$ 
RINT 
90 PRINT b$;" "¡c$ 
100 STOP Programa 2 


PF 4 


3.4. INPUT is 


Hemos usado PRINT ”...” como orientación en una sentencia de entrada. En 
el BASIC del Spectrum podemos combinar estas dos sentencias en una sola. Asi, 
en el programa anterior, podemos sustituir: 


40 PRINT "Please state your phone number” 
50 INPUT t$ 
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con 


40 INPUT "Please state your phone number  ";t$ 


Observarás que el literal entre comillas de la sentencia INPUT saldrá en el fondo 
de la pantalla, y desaparece una vez la información se haya introducido y tocado 
ENTER. Por eso, tú necesitas ver la información aún. 


40 INPUT "Please state your phone number  ”:t$ 
50 PRINT t$ 


o como un literal entre comillas que lo explique: 


40 INPUT "Please state your phone number  ”:t$ 
50 PRINT "Your phone number is  ”:t$ 


RUN 
Your phone number is 58354 


Observa el punto y coma después de ” Your phone number is” en la línea 50 
para asegurar que la variable t$ se imprime en la misma línea que "Your phone 
number is”. 

El siguiente programa demuestra varios efectos de PRINT. Como necesitamos 
usar “Hello” varias veces, primero lo almacenamos en la ubicación A$ nada más em- 
pezar el programa. 

10 REM **Tele answer** 

20 LET h$="Hello” 

30 PRINT h$ 

40 INPUT "What is your phone no.? ”;t$ 
50 PRINT "Your phone number is ”;t$ 
60 PRINT 

70 PRINT h$,t$ 

80 PRINT h$;t$ 


90 PRINT 
100 PRINT h8;” ":tS Programa 3. El computador pregunta 


No es necesario terminar un programa con la sentencia STOP, ya que la senten- 
cia última del programa (numeración más alta) determina físicamente el fin del pro- 
grama. Esto contrasta cona otras versiones de BASIC que exigen la presencia de 
una sentencia STOP O END. STOP lo usa el BASIC ZX como un comando, para de- 
tectar el programa; (ejemplo en una sentencia INPUT). 


RUN 
Hello 
Your phone number is 58354 


Hello 58354 
Hello58354 
Hello 58354 


A] 


Programa 3. 


7 


PF 5 


¿Qué aparecerá en la pantalla cuando se ejecuta el siguiente programa, supo- 


niendo que tu nombre es John Smith y tu edad 45 años? 


5 
10 
20 
30 
40 
50 
60 
70 
80 
90 

100 


3.5 Números y strings en sentencias PRINT 


REM **PF 5** 

LET t$= "Thank you” 

INPUT "What is your name? ";n$ 
PRINT "Your name is ”;¡n$ 
PRINT 

INPUT "What is your age? ";a$ 
PRINT "You are ”;a$;” years old” 
PRINT 

PRINT 

PRINT t8;” “ins” “as 
sToP 


Programa 4 


Pudimos introducir el número de teléfono del programa anterior en una ubica- 
ción numérica de almacenamiento. En seguida tendríamos problemas si el número 
hubiese sido demasiado largo, o hubiese contenido espacios (ejemplo 01 693 4539). 
Vamos a comparar la forma en que el BASIC daría salida a este dato desde ubica- 
ciones numéricas y de string. 

En este programa observa que usamos el string en s$ para imprimir un escalado 
en la pantalla. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
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REM **Tele Answer** 
LET h$="Hello” 


LET s$ =”1234567890123456789012345"” 


PRINT h$ 
NPUT "What is your phone no.? ”:t$ 
PRINT "Your phone number is ”;t$ 
NPUT "Please type it in again ”;t 
PRINT t 

PRINT 

PRINT s$ 
PRINT h$,t$ 
PRINT h$,t 
PRINT s$ 
PRINT h$;t$ 
PRINT h$:t 
PRINT s$ 
PRINT h$;” ":t$ 
PRINT h$;” "ut 
sToOP 


Programa 5. impresión de strings y números 


Run Trace 
Hello 

What is your telephone number? 58632 

Please type it in again 58632 


12314567890123456789012345 60 s$ numera cada posición de impresión. 
Hello 58632 
He! (0) 58832 
1234567890123456789012345 75 Observa que el primer $5 se sitúa en la 
He! 058632 posición 17. 
Hel 058632 La 16 se reserva para el signo del nú- 
122324567890123456789012345 095 mero en t, pero el signo es '+” no se 
Hel 058632 imprime. 
Hel o05B632 115 
RUN 
Hello 
What is your phone number?-9637 
Please type it in again-9637 
1234567890123456789012345 75 
Hel o -9637 Observa el efecto 
Hello -9637 cuando t$ y t 
1234567820123456789012345 valen —-9637 
Hel 0-89637 95 
Hel 0-9637 
1234567890123456789012345 115 
Helio -9637 
Hel o 963237 
[K] Programa 5. 
PF 6 
Escribe un programa para introducir tu nombre como string y tu edad como 
número sacando el mensaje, 'My name is .... and lam... years old”, sustituyendo 


los puntos suspensivos con la información adecuada y usando espaciado normal. 


Servicio de registro de datos 

El siguiente es un ejemplo más completo de suposición de datos de salida en 
BASIC. Podemos imaginar que en un cercano futuro nuestro televisor, teléfono y 
computadora estén conectados entre sí como terminales inteligentes. Al ver un anun- 
cio que nos gusta, marcamos un número de teléfono y se establece el siguiente diálogo. 


Traceo 

Hola ... 20 
Esto es un servicio de registro de datos 30 
Por favor, entre los detalles que se le piden 50 

60 
¿Su nombre? C. A. Smith 70 
¿Su teléfono? 23685 90 
¿Número de su casa? 77 110 
¿Calle? Chalmers Road 130 
¿Población?  Worthing 150 
¿Código postal ? BR7 9QY 170 


EJECUCION tal como se recogió en pantalla (la información de arriba no per- 
manece en pantalla) 


Chalmers Road 
Worthing 
BR7 9QY 


Gracias por su petición 


Sus datos personales han sido 

registrados como: 

Nombre C. A. Smith Teléfono 23685 

Dirección 77 Chalmers Road 
Worthing BR7 9QY 


Los detalles de nuestros servicios y 
productos le será enviado. 
Sus datos personales son secretos. 


(Desde luego, 'le será enviado' podría ser eventualmente 'le será mostrado en su 
terminal, ahora' puesto que el correo electrónico sustituye a las cartas, y luego el úni- 
co detalle que necesita ser introducido es un código de suscripción.) El diálogo simu- 
lado podría ser este programa: 


10 REM **Esto es un servicio de registro de datos** 
15 REM **Entrada de datos** 

20 PRINT "Hola” 

30 PRINT "Esto es un servicio de registro de datos” 
40 PRINT 

50 PRINT ”Por favor entre los detalles que se le piden” 
60 PRINT 

70 INPUT "¿Su nombre? ”;n$ 

80 PRINT n$ 

90 INPUT "¿Su teléfono? ”;n$ 

100 PRINT t$ 

110 INPUT "¿Número de su casa?  ”;¡h$ 

120 PRINT h$ 

130 INPUT "¿Calle? ";r$ 

140 PRINT r$ 

150 INPUT "¿Población? ";p$ 

160 PRINT c$ 

170 INPUT "¿Código postal? ”;p$ 

180 PRINT p$ 

190 PRINT 
200 PRINT 

210 PRINT 

220 REM **Fin de entrada de datos** 
230 REM **Visualizar consulta** 

240 PRINT "Gracias por su petición” 
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250 PRINT 
260 PRINT "Sus datos personales han sido registrados como:” 
270 PRINT "Nombre ";n$” ”; 
280 PRINT "Teléfono ”;t$ 
290 PRINT "Dirección ";¡h$;” ";r$ 
300 PRINT " "ic$;” "ps 
310 PRINT 
320 PRINT 
330 PRINT "Los detalles de nuestros servicios y productos le será enviado.” 
340 PRINT "Sus datos personales” 
350 PRINT "son secretos.” 
360 REM **rerererereranananaas 
370 STOP 
Programa 6. Servicio de registro de datos 


[K] Programa 6. 


3.6. Cartas tipo 


Un servicio de registro de datos como el que hemos visto podría existir en el 
futuro, pero las cartas tipo personalizadas ya existen ahora. Esas cartas se componen 
en un procesador de textos, pero si tu microordenador no tiene tal elemento disponi- 
ble, puedes construir uno modesto con el BASIC. Dejaremos que elijas tu carta en 
el Ejercicio 2. 


Ejemplo 1 

Una empresa de selección recibe muchas peticiones para un empleo. Su política 
es entrevistar a los aspirantes inicialmente en la sucursal de la localidad donde viven. 
Se le envía una carta a cada uno, conteniendo detalles individuales de la entrevista 
propuesta. Desarrolla un programa BASIC para escribir tal carta. 


Solución 

El siguiente programa haría este trabajo. 

Para explicar las entradas de datos desde af a g$, nos ayudamos de sentencias 
REM. 


10 REM **Letter Writer** 
15 REM **applicant's name** 


20 INPUT as 

25 REM **aplication letter date** 
30 INPUT b$ 

35 REM **interviewer's name** 
40 INPUT c$ 

45 REM **time of interview** 

50 INPUT d$ 


55 REM **date of interview** 
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60 INPUT e$ 

65 REM **interview location” * 

70 INPUT f$ 

75 REM **name of employee replying** 
80 INPUT g$ 

90 REM **End of input** 

100 REM **output** 

110 PRINT 

120 PRINT 

130 PRINT 

140 PRINT "Dear "¡a$;”,” 

150 PRINT 

160 PRINT "Thank you for your letter of the” 
170 PRINT b$;”.";". We invite you to” 

180 PRINT "attend for a job interview with” 
190 PRINT c$;” at "¡d$;” on the” 

200 PRINT e$;” at our office, the” 

210 PRINT f$;” Branch.” 

220 PRINT 

230 PRINT "Yours sincerely,” 

240 PRINT 

250 PRINT 

260 PRINT 

270 PRINT g$ 

280 STOP Programa 7. Carta de entrevista 


Esto daria la siguiente ejecución: 
Dear Miss Jones, 


Thank you for your letter of the 
13th October. We invite you to 
atiend for a job interview with 
Mr. Fellows at 10.00 am on the 
20th October at our office, the 
High St. Sidcup Branch. 


Yours sincerely, 
C. A. Sidwell 


El usuario del programa puede encontrarlo de difícil uso, ya que todo lo que 
recibe es una serie de orientaciones “[L]”. El puede, de todos modos, hacer un 
esqueleto recordatorio de la estructura de la carta. 


Dear af, 
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Thank you for your letter of the 
b$. We invite you to 

attend for a job interview with 
c$ at d$ on the 

e$ at our office, the 

f$ Branch. 


Yours sincerely, 
g$ 


[K] Programa 7. 


Ejercicio 1 

Un agente de la propiedad envía periódicamente cartas a los clientes que tiene 
en su libro para comprobar si aún buscan piso, y si los detalles de su requerimiento 
están correctos (tipo de propiedad, rango de precio, etc.). Escribe un programa en 
BASIC que haga tal carta. 


Ejercicio 2 

Todos hemos escrito cartas pidiendo cosas, ejemplo, detalles de un producto, 
un servicio, vacaciones, un trabajo, etc. Escribe un programa BASIC para escribir 
una carta que cubra un ancho rango de posibilidades, dejando que tú entres sólo 
los detalles particulares de cada consulta. 


3.7 Modelos, archivos, READ con DATA 


READ con DATA 

Hasta ahora en este curso hemos introducido datos por teclado durante la eje- 
cución de un programa como respuesta de una sentencia INPUT. Otra forma de 
introducir datos en un programa es almacenarlos en sentencias DATA dentro del mis- 
mo programa y luego leerlos (READ) tal como se vayan necesitando. Usualmente los 
datos se almacenan al final del programa. 

Cada vez que el computador llega a una sentencia READ toma el siguiente ele- 
mento de dato de la cola DATA y la sitúa en la ubicación especificada en la sentencia 
READ. Para que una sentencia READ sea ejecutada debe existir un elemento corres- 
pondiente a DATA disponible en la cola DATA. 

Así en este programa ocurriría lo siguiente 


5 REM **Read** 


10 READ a$ 

20 READ b$ 

30 READ c$ 

100 DATA "Tom", "Dick" 
110 DATA "Harry" Programa 8 


” 


El Spectrum requiere ” como delimitadores de strings en sentencias DATA. 

EN 10, READ le dice al computador que tome el primer elemento de DATA y 
lo ponga en la ubicación ag. El primer elemento de DATA está en la línea 100 y es 
Tom, así Tom va a la ubicación af. En la próxima sentencia READ (20), el computa- 
dor toma el siguiente elemento de DATA, que es Dick, y asi sucesivamente. Puedes 
comprobarlo añadiendo 


35 REM **Check by printing** 
40 PRINT a$ 
50 PRINT b$ 
60 PRINT c$ 


en el programa 


RUN 
Tom 
Dick 
Harry 


PF 7 
¿Qué hay erróneo en este trozo de programa? 


5 REM **SAQ 7** 

10 READ a$ 

20 READ b 

30 READ c 

40 READ d$ 

50 DATA "Paul”, "Mary”,63 Programa 9 


Un ejemplo más complejo es el siguiente: 


30 READ n$,t$ 


| 


120 READ c$ 


1 


t 
150 READ m$ 


' 


160 GO TO 30 
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200 
210 
220 
230 
240 


DATA 
DATA 
DATA 
DATA ” 
DATA 


He aquí lo que 


Primera vuelta 


“Benny”, Copper”, Draper” 
"Eddie”,"Gwynne” 

"Hettie” 
Morley”,"Prosser”,”Smythe” Weeks” 
"Wilson","Wright" 


ocurre: 


lee Benny 
lee Copper 
lee Draper 
lee Eddie 


Almacenado al acabar primera vuelta 


n$ Benny 

t$ Copper 

c$ Draper 

m$ Eddie 
Segunda vuelta 

n$ lee Gwynne 

t$ lee Hettie 

c$ lee Morley 

m$ lee Prosser 


Almacenado al acabar segunda vuelta 


n$ Gwynne 
1$ Hettie 
c$ Morley 

m$ Prosser 


PF 8 
¿Cuál será el estado final del almacenamiento cuando todos los datos hayan 
sido leídos? 


PF 9 
¿Cuál sería el contenido de las ubicaciones a$, b$ y c$ cuando este fragmento 
de programa haya leído todos los elementos de DATA? 
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5 REM **SAQ 9** 

10 READ a$ 

15 REM **Branch back** 
20 READ b$ 

30 READ c$ 

40 GOTO 15 


AB REM PS ARA AA 


50 DATA "Tinker”,”Tailor”, Soldier” 
60 DATA "Sailor”,"Rich Man" 
Programa 10 


RESTORE 

El BASIC tiene también una instrucción adicional de lectura, RESTORE. Cuan- 
do se encuentra esta instrucción, no importa hasta dónde se haya leído: la próxima 
instrucción READ volverá al principio y leerá el primer elemento de DATA una vez 
más, y continuará hacia adelante, es decir el segundo elemento, tercero, y así sucesi- 
vamente. Esto puede ser útil si quieres acceder al mismo dato más de una vez en 
el programa, sin necesidad de introducirlo de nuevo. Has de tener cuidado de que 
el número de READS y el número de elementos DATA coincidan, de lo contrario ha- 
brá un error de programa y éste se parará. 


Archivos y registros 

A menudo queremos registrar datos de la misma naturaleza, es decir, construir 
un archivo de información. Una guía telefónica es un buen ejemplo de lo que en 
proceso de datos se denomina archivo, que es una colección de registros similares. 
Cada registro tiene el formato 


| Nombre N$ Número Teléf. T$ 
BENNY 


y decimos que consiste en un número de campos —en este caso tres: nombre, direc- 
ción y teléfono. Un registro, pues, es una colección de campos y un archivo es una 
colección de registros. Una guía telefónica está dispuesta en orden alfabético de ape- 
llidos, dando una estructura simple. 


ejemplo 


Comparación de cadenas (strings) 

Podemos desear comparar strings. Suponte, por ejemplo, que tenemos una agenda 
telefónica personal en nuestro microordenador y queremos saber si tenemos en ella 
a SMITH. El computador tendrá que comparar el string "SMITH" contra todos los 
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strings del campo de nombre en nuestro directorio. Puede hacerlo fácilmente, por- 
que cada letra se representa internamente por un código binario. Así 


A es 100 0001 
B es 100 0010 


y así sucesivamente. (Ver apéndice de esta Unidad.) 
Así que las palabras dispuestas en orden alfabético en el papel, se representarán 
en el computador por códigos en orden numérico. 


Asi si 
a$ = cat 
b$ = dog 
c$ = cat 
d$ = fish 
e$ = cats 
as =$ 


Pero b$>a$ (es más alta en el alfabeto) 
y e$>a$ (la s extra la coloca detrás de cat) 


Vamos a utilizar esto en nuestros ejemplos. 


Ejemplo 2 

Tenemos un archivo de nombres asociados a números de teléfonos. Escribe un 
programa BASIC para buscar en el archivo un nombre en particular y, cuando se 
encuentre, mostrar su número de teléfono. 


Solución 
Podríamos intentar un algoritmo descriptivo: 


Inicio. 

Introducir nombre deseado. 

Leer siguiente registro del archivo (es decir, nombre y número). 

Si se ha llegado al final del archivo (nombre = '“zzzz”") envía un mensaje 

“no encontrado en el archivo' y salta a 7, de lo contrario sigue en $. 

5. Si el nombre deseado = nombre de dato, envía nombre y número a pantalla 
y salta a 7, de lo contrario sigue en 6. 

6. Vuelve a 3 para siguiente registro. 

7. Para. 


bh un 


Sin embargo, el BASIC no permite generalmente sentencias tan complejas como 
la 4 y la 5, por lo que tenemos que desglosar esas sentencias en el siguiente algoritmo: 
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Inicio. 

Introducir nombre deseado. 

Leer siguiente registro del archivo (es decir, nombre y número) 

Si se ha llegado al final del archivo salta a 7, de lo contrario sigue en 5. 
Si el nombre deseado = nombre de dato entonces salta a 9, de lo contrario 
sigue en 6. 

Vuelve a 3 para siguiente registro. 

Saca el mensaje 'no está en archivo”. 

Parar. 

Envía a pantalla nombre y teléfono. 


Parar. 


UU BhunN — 


S 00 o 


70 


mensaje 
“no está en 
archivo” 


mostrar n$, 1$ 


Figura 3 Búsqueda en 2993 


un listín telefónico. 
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Ahora cada registro contiene dos campos en esta ocasión: nombre y número. 


Nombre N$ Número Teléf. T$ 
BENNY 1234 


por esto cada elemento de DATA debe contener información para cada campo. De 
esta forma la próxima línea será: 


ejemplo 


READ n$, t$ 
y las líneas de DATA son: 
DATA "Benny”, "1234” 


Observa que el número que determina el fin de archivo es un elemento de DA- 
TA (línea 310) por lo que ha de tener datos para llevar £$, así como nf. Si no fuese 
así, daría un mensaje de error en la pantalla. Así escribimos 


DATA "zzzz ” "end of file” 
y no 
DATA "2zzz 


La razón de los espacios detrás de zzzz (tres espacios) es una idiosincrasia del 
BASIC ROM del Spectrum. Debe coincidir con la línea 60, y la señal de fin de archi- 
vo debe tener la longitud del registro más largo. 


10 REM **Telephone Directory ** 

20 PRINT "Telephone Directory” 

25 PRINT 

30 INPUT "Surname of person sought “:a$ 
40 REM **Read next entry** 

50 READ n$,1$ 


60 IF n$="zzzz " THEN GO TO 90 
70 IF q5=n$ THEN GO TO 120 
80 GO TO 40 


90 REM **Name not listed** 

100 PRINT q$;” is not in the file” 
110 GO TO 9990 

120 REM **Name has been found** 
130 PRINT q$;” 's number ¡s”;t$ 
140 GO TO 9990 
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190 REM **Data list** 

200 DATA "Benny”,"1234” 
210 DATA "Copper”,”9823"” 
220 DATA ”Draper”,”1850” 
230 DATA ”Eddie”,"7294” 
240 DATA "Gwynne",*5821” 
250 DATA "Hettie”,”"4539" 
260 DATA "Morley”,”7830” 
270 DATA "Prosser”,”1383"” 
280 DATA "Smythe”,”1147" 
290 DATA "Weeks”,"5529" 
300 DATA "Wilson”,”9936” 


310 DATA "zzzz " "end of file” 
9990 REM **all finished** 
9999 STOP Programa 11. Listín telefónicc 


Ejecuciones típicas 


RUN 
Telephone Directory 
Eddie's number is 7294 


RUN 
Telephone Directory 
Browne is not in the file 


RUN 
Telephone Directory 
Weeks's number is 5529 


RUN 
Telephone Directory 
weeks is not in the file 


RUN 
Telephone Directory 
Week is not in the file 


En la cuarta ejecución introdujimos el nombre "weeks" en lugar de "Weeks”, 
tal como estaba en el archivo, y en la quinta ejecución introdujimos Week”. El com- 
putador compara estos modelos de caracteres y los halla distintos, por lo que se 
ha de tener cuidado en proporcionar los caracteres tal como se encuentran en el ar- 
chivo. 


A 


Programa 11. 


PF 10 
¿Qué cambios habrías de hacer al programa 11 para introducir el número de 
teléfono de una persona y obtener su nombre, o avisar de que no existe? 
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3.8 Clasificación 


Te habrás dado cuenta de que el listín telefónico está en orden alfabético. Sería 
difícil manejarlo si no fuese así. Sin embargo, nuestra solución para el problema 
de búsqueda no se vio afectada por tal cuestión, ya que buscábamos a través del 
archivo hasta que encontrábamos el nombre, o se acababa el archivo. Nuestro algo- 
ritmo hubiese funcionado de igual forma si los datos no hubiesen estado ordenados. 
Dedicaremos algún tiempo más adelante en el curso en ia clasificación y búsqueda 
de datos, en cuyo momento descubrirás las ventajas de tener clasificada la información. 

Hagamos un intento con este problema. 


Ejemplo 3 
Escribe un programa BASIC para entrar dos nombres en el computador y mos- 


trar en pantalla el que debiera ser el primero en orden alfabético. 


Solución 


Algoritmo descriptivo 


LADA ES A 


Inicio. 
Entra el primer nombre. 
Entra el segundo nombre. 


Si el primer nombre < segundo nombre salta a 7 si no, continúa en 5. 


Muestra el segundo nombre. 
Salta a 8. 

Muestra el primer nombre. 
Parar. 


La solución diagramada de este problema se muestra en Figura 4. 


110 REM **First in alpha-order** 
115 PRINT "Alpha Order Program" 


120 INPUT "First name? ";¡a$ 
130 PRINT a$ 


140 INPUT "Second name”? ":b$ 


150 PRINT b$ 
160 PRINT 
170 REM **testing 8 output** 


180 IF a$<b$ THEN GO TO 220 


190 REM **b$ is first** 


200 PRINT "First in alpha-order is 


210 GO TO 240 
220 REM **a$ is first** 


230 PRINT "First in alpha-order ¡is 


240 REM **end now** 
250 STOP 


":0$ 


“a$ 


Programa 12 
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inicio 


entrar 
PRIMER 
nombre 


entrar 
SEGUNDO 
nombre 


PRIMERO 


D 


< 
SEGUNDO 


170 


mostrar 
PRIMER 
nombre 


mostrar 
SEGUNDO 
nombre 


parar 


Figura 4 Selección del primero de dos nombres, en orden alfabético. 


Ejecuciones típicas 


RUN 

Alpha Order Program 
Brown 

Smith 


First in alpha-order is Brown 
RUN 

Alpha Order Program 

Smith 

Brown 


First in alpha-order ¡is Brown 


[K] Programa 12. 
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El truco de las 3 cartas 

Suponte ahora que queremos introducir tres nombres y sacar el primero que 
le corresponde por orden alfabético. Una solución estandard podría ser la de la Fi- 
gura 5. 


inicio 


entrar 
a$,b$,c3 


fr 
»— —Á 


parar 


Figura 5 Selección del primero de tres nombres, en orden alfabético. 


Cuando pedimos resolver este problema la mayoría de los estudiantes constru- 
yen un algoritmo similar al de la Figura 5. Es una solución perfectamente viable, 
pero no sirve para el futuro, porque sólo sirve para 3 nombres (hay tres decisiones). 
¿Qué pasará si lo queremos extender a 4, 5 o más nombres? El problema fundamen- 
tal es permitir que cada variable retenga el valor en su lugar y cómo seríamos capa- 
ces de identificar esa ubicación. 
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Un método más simple de resolver el problema es introducir los nombres uno 
a uno y almacenar siempre el menor en a$. El programa retiene sólo el menor, des- 
truyendo los demás. En el próximo ejercicio te sugerimos que intentes la solución. 


Ejercicio 3 
Escribe un programa en BASIC para introducir tres nombres y obtener el pri- 
- mero en orden alfabético, usando el método comentado en las últimas líneas. 


Ejercicio 4 

Un archivo de países europeos y sus capitales, es lo que tenemos ahora. Escribe 
un programa BASIC para usar este archivo como base dialogante con el usuario 
presentándole el país y preguntándole la capital del mismo. Respóndele si la contes- 
tación es buena o no y, en el último caso, mostrándole la respuesta buena. 


210 DATA "France" "Paris” 

220 DATA "West Germany”, “Bonn” 
230 DATA "The Netherlands”, "The Hague” 
240 DATA "Poland", Warsaw” 

250 DATA "ltaly”,"Rome' 

260 DATA "Spain”,"Madrid” 

270 DATA "Portugal”, “Lisbon” 

280 DATA "Hungary", "Budapest" 
290 DATA "Denmark” “Copenhagen” 
300 DATA "Norway", “Oslo” 

310 DATA "zzzz","end of file” 


Objetivos de la Unidad 3 


Ahora que has completado esta Unidad, comprueba si eres capaz de utilizar 
lo siguiente en programas sencillos: 


Ubicaciones de almacenamiento para strings 
PRINT cistació O 


READ a 
DATA (un solo campo) a] 
IF as = b$ THEN ... O 
Procedimientos sencillos de clasificación o 
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Respuestas a PF y Ejercicios 


PF 1 

Ubicaciones válidas de strings: AS, k$ 

Una letra (mayúscula o minúscula) seguida del signo dólar ($) es la única forma 
aceptable para ubicar strings en el Spectrum. 


PF 2 
(a), (b) y (e) son correctas aunque (e) no es aceptable en BASIC. 
(c) es incorrecta; M$ es una ubicación de string, por eso necesitas 9583”. 
(d) es incorrecta; K' es una ubicación numérica, por lo que “JAM POT” no se 
puede asignar a ella. 


PF 3 


(Respuesta para zonas de impresión estandard.) 
PF 4 


5 REM **SAQ 4** 

10 LET b$= "BASIC" 

20 PRINT b$,b$ 

30 PRINT b$;b$;b$;b$ 

40 PRINT D$;” ”:b$;" ":b$ 

50 STOP Programa 13 


RUN 

BASIC BASIC 
BASICBASICBASICBASIC 
BASIC BASIC BASIC 


PF 5 


Your name is John Smith 
You are 45 years old 
thank you John Smith 45 
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PF 6 


5 REM **SAQ 6** 

10 INPUT "What is your name? ";n$ 

20 PRINT n$ 

30 INPUT "What is your age? ”;a 

40 PRINT a 

50 PRINT 

60 PRINT "My name is "¡n$;” and l am ” 

70 PRINT a;” years old.” Programa 14 


RUN 
Mary 
22 


My name is Mary and | am 
22 years old. 


Ejercicio 1 
Los ejercicios 1 y 2 son muy similares en naturaleza y no se incluye respuesta 
para el ejercicio 1. 


Ejercicio 2 


10 REM **Enquiry Letter** 

20 PRINT "Enquiry Letter program” 
30 PRINT 

40 PRINT "Details of addressee” 
50 PRINT 

60 INPUT "Name...? ":n$ 

70 PRINT n$ 

80 INPUT "Street...? ";s$ 

90 PRINT s$ 

100 INPUT "Town...? ";t$ 

110 PRINT t$ 

120 PRINT 
130 INPUT "Date for this letter? ";:d$ 
140 PRINT "This letter dated ”;d$ 
150 PRINT 
160 PRINT "Details of product/service” 
170 PRINT 
180 INPUT "ltem of interest? ”; ¡$ 

190 PRINT "Interest in ”; ¡$ 

200 INPUT "Source of Information? ”;a$ 
210 PRINT "Source ”;a$ 

220 INPUT "Date of source? ”;¡e$ 

230 PRINT "dated ”;e$ 

240 PAUSE 200 

250 CLS 

260 REM **Letter production** 

270 PRINT n$ 
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280 PRINT s$ 

290 PRINT t$ 

300 PRINT 

310 PRINT d$ 

320 PRINT 

330 PRINT "Dear Sir,” 

340 PRINT 

350 PRINT "Will you kindly send me details” 
360 PRINT "of ";i$;",” 

370 PRINT "as itemised in the following:” 
380 PRINT a$ 

390 PRINT "dated ":e$;”." 

400 PRINT 

410 PRINT "Yours faithfully,” 

420 PRINT 

430 PRINT 

440 PRINT "O.L. Seymour” Programa 15 


La sentencia CLS limpia la pantalla, dejándola en blanco. No afecta al conteni- 
do de las variables. Es muy útil cuando tienes alguna información para enviar a 
pantalla y luego deseas enviar una información más amplia, sin que las líneas se 
desplacen hacia arriba. 

Si queremos visualizar información una determinada cantidad de veces, primero 
limpiamos pantalla (CLS) y después enviamos algo, podemos usar la sentencia PAUSE. 


PAUSE n 


Para el proceso y visualiza el mensaje n veces, donde n lo especifica el progra- 
mador. Normalmente, n = 50 equivale a un segundo. Es decir, PAUSE 100, significa 
una demora de 2 segundos antes de seguir el proceso. 

La duración máxima es de 11 segundos (n = 32766). Si n es mayor de 32766 
y menor de 65535, se produce un error lógico y la instrucción entra en una demora 
indefinida. Esto se escribe usualmente como 


PAUSE 4E4 


(El número se escribe en hexadecimal, para ahorrarse tecleo). Si se escribe un 
número superior a 65535 se produce error y el programa se para. 
La demora puede cortarse si tocas alguna tecla. 


Ejecución típica 


RUN 

Enquiry Letter Program 
Details of addressee 
E.P. Software Ltd. 
Edgware Road 

London 
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This letter dated 12th October 1980 
Details of product/service 

Interest in Business software packages 
Source "Modern Computing” Magazine 
dated 10th October 


E.P. Software Ltd. 
Edgware Road 
London 


12th October 1980 

Dear Sir, 

Will you kindly send me details of Business 

sofware packages, as itemised in the following: 

"Modern Computing” Magazine dated 10th October. 

Yours fainthfuily, 

O.L. Seymour 
PF 7 

La línea 20 intentará leer el segundo elemento de DATA, que es Mary, un string, 

pero la ubicación en línea 20 es una ubicación numérica. El computador parará y 


dará un mensaje de error. Para leer “Mary”, la línea 20 debe ser 20 READ b$. 
La línea 40 pide un cuarto elemento de DATA, pero sólo hay tres en la línea 50. 


PF 8 
n$ Smythe 
18 Weeks 
c$ Wilson 
m$ Wright 
PF 9 


a$ Tinkes t$ Sailor c$ Rich Man 


Observa que "Rich Man" se lee como un elemento porque está completamente 
cerrado por comillas. Si intentases ejecutar este programa recibirías un mensaje “fue- 
ra de datos” (out of data'). ¿Por qué? 

PF 10 
10 REM **Telephone Directory** 
20 PRINT "Telephone Directory” 
25 PRINT 
30 INPUT "Number of person sought ";a$ 
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40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
9990 
9999 


Ejercicio 3 


REM **Read next entry** 

READ n$,1$ 

lF n$=”"zzzz ” THEN GO TO 930 
IF a$=1t$ THEN GO TO 120 

GO TO 40 

REM **Number not lisied** 
PRINT a$;” is not in the file” 

GO TO 9990 

REM **Number has been found* * 
PRINT a$;” is the number of "¡n$ 
GO TO 9990 

REM **Data list** 

DATA "Benny", "1234" 

DATA "Copper”,”"9823” 

DATA ”Draper” 1850” 

DATA "Eddie”","7294” 

DATA "Gwynne”,"5821” 

DATA "Hettie”, "4539" 

DATA "Morley”,"7830" 

DATA "Prosser”,'1383'” 

DATA "Smythe”,"1147” 

DATA "Weeks”,"5529" 

DATA “Wilson”,"9936" 


DATA "Zz2z " "end ot file” 
REM **all finished” * 
sTOP 


Programa 16 


Un método sencillo de resolver el problema es el Programa 17. Los nombres 


se introducen 


uno a uno, y el 'más pequeño” siempre se almacena en a$. El progra- 


ma, sin embargo, sólo retiene este elemento de información; los demás se pierden. 


10 
15 
20 
25 
27 
30 
35 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 


REM **First in alpha-order** 
PRINT "Alpha-order Program" 
NPUT "First Name ”;¡a$ 
PRINT a$ 

REM **next input** 

INPUT "Next Name ";b$ 
PRINT b$ 

F b$="zzz2" THEN GO TO 100 
F a$<b$ THEN GO TO 70 
LET a$ =b$ 

REM **output** 

PRINT "First so far is "¡a$ 


GO TO 27 

REM **Final answer** 
PRINT 

PRINT a$;” was overall first.” 
STOP 


Programa 17 
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RUN 


Alpha-order Program 


Tom 
Sid 
First 
Joe 
First 
Fred 
First 
Bill 
First 
Ron 
First 
Alan 
First 
222Z 
Alan 


Ejercicio 4 


100 


so far is Sid 
so far is Joe 
so tar is Fred 
so far is Bill 
so far is Bill 
so far is Alan 


was overall first. 


REM **European Capitals Quiz** 
PRINT ” 'Name the Capital” Quiz” 
PRINT 

REM **read next list entry** 
READ c$,t$ 

IF cS="zzzz"” THEN GO TO 170 
PRINT "What is the capital of ” 
PRINT c$ 

INPUT "Your answer: ";a$ 
PRINT a$ 

IF a$=t$ THEN GO TO 140 
PRINT "No! Sorry, the capital of” 
PRINT c$;” is ":t$S 

GO TO 30 

REM **right answer** 

PRINT "Yes! That's right!” 

GO TO 30 

REM **Quixz finished** 

PRINT 


PRINT "That's the end of the quiz.” 


REM **data list** 


Programa 18A 


Añade la lista de datos comao se ve en la sentencia del ejercicio 4. 


RUN 


"Name the Capital” Quiz 
What is the capital of 
France 


Paris 
Yes! 


That's right! 


What is the capital of 
West Germany 

Berlin 

No! Sorry, the capital of 
West Germany is Bonn 


What is the capital of 
The Netherlands 

Hague 

No! Sorry, the capital of 


The Netherlands is The Hague 


What is the capital of 
Poland 

Warsaw 

Yes! That's right! 


What is the capital of 
Italy 

Rome 

Yes! That's right! 


What is the capital of 
Spain 

Madrid 

Yes! That's right! 


What is the capital of 
Portugal 

Lisbon 

Yes! That's right! 


What is the capital of 
Hungary 

Prague 

No! Sorry, the capital of 
Hungary is Budapest 


What is ihe capital of 
Denmark 

Copanheen 

No! Sorry, the capital of 
Denmark is Copenhagen 


What is the capital of 
Norway 

Oslo 

Yes! That's right! 


That's the end of the quiz. 
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Apéndice 


Este programa imprime todos los caracteres del Spectrum, con su código numé- 
rico en ASCII (American Standard Code for Information Interchange), y sus equi- 
valentes binarios. 


10 REM **Spectrum Characters (based on ASCII)** 
12 DIM c$(9) 

15 PRINT "32”;:TAB 8;"space”:TAB 16;"00100000” 
20 FOR a=33 TO 201 

30 IF a<144 THEN GO TO 55 

40 IF a<199 THEN GO TO 70 

50 REM **ignore keywords** 

55 GO SUB 100 

60 PRINT a;TAB 8¡CHR$ a:TAB 16;c$(2 TO ) 

70 NEXT a 

80 STOP 

100 REM **Binary conversion** 

110 LET b=a 

120 FORi=1 TO Y 

130 LET c$(i)="0" 

132 NEXT i 

133 LET1=9 

135 IF b/2<>INT (b/2) THEN LET c$()="1" 

140 LET b=INT (b/2) 

145 LET ¡=i—1 

146 IFi=1 THEN GO TO 150 

147 GO TO 135 

150 RETURN Programa 19 


Es necesario reservar espacio en la memoria del computador para almacenar 
los códigos ASCII y sus equivalentes binarios. Lo hemos hecho usando la sentencia 
DIM de la línea 12. 

La sentencia TAB tiene el formato 


TAB n 


donde n es un número. Tiene el efecto de mover la posición de impresión a la colum- 
na n de la línea en uso. La línes 60 determina los espaciados. 


Código Carácter Binario 
32 space 00100000 
33 | 00100001 
34 v 00100010 
35 $ 00100011 
36 $ 00100100 
37 % 00100101 
38 8 00100110 
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39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 


lo) 
L£ 


83 
84 
85 
86 
87 
88 
89 
90 
91 
92 


1. + r——- 


c¿0QDOXJONRAONO—+: 


-ITN<xXE£<CANODOVOZZETACIOTMOOWPB IV IMA-: 


00100111 
00101000 
00101001 
00101010 
00101011 
00101100 
00101101 
00101110 
00101111 
00110000 
00110001 
00110010 
00110011 
00110100 
00110101 
00110110 
00110111 
00111000 
00111001 
00111010 
00111011 
00111100 
00111101 
00111110 
00111111 
01000000 
01000001 
01000010 
01000011 
01000100 
01000101 
01000110 
01000111 
01001000 
01001001 
01001010 
01001011 
01001100 
01001101 
01001110 
01001111 
01010000 
01010001 
01010010 
01010011 
01010100 
01010101 
01010110 
01010111 
01011000 
01011001 
01011010 
01011011 
01011100 


103 


104 
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94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
199 
200 
201 


FU TY e lo Dz — N<xéÉ<C0=00DO053]-A= TO >00000m|—— 


01011101 
01011110 
01011111 
01100000 
01100001 
01100010 
01100011 
01100100 
01100101 
01100110 
01100111 
01101000 
01101001 
01101010 
01101011 
01101100 
01101101 
01101110 
01101111 
01110000 
01110001 
01110010 
01110011 
01110100 
01110101 
01110110 
01110111 
01111000 
01111001 
01111010 
01111011 
01111100 
01111101 
01111110 
01111111 
10000000 
10000001 
10000010 
10000011 
10000100 
10000101 
100001.10 
10000111 
10001000 
10001001 
10001010 
10001011 
10001100 
10001101 
10001110 
10001111 
11000111 
11001000 
11001001 


Comentario 1 

8 circuitos electrónicos, cada uno teniendo el estado “on” (1) o “off” (0) se 
pueden usar para representar los caracteres. 
Comentario 2 


Sin contar nada acerca de la representación binaria podemos aprovechar otra 
característica del código: 


Si leemos: A 01000001 
B 01000010 
Z 01011010 


podemos ver que las letras están dispuestas en orden numérico A<B<C... <Y<Z. 
Nos será muy útil subsecuentemente. 


105 


4.1 
4.2 
4.3 
4.4 
4.5 
4.6 
47 


UNIDAD 4 


Variables 

Listas . A 

Listas variables . > 
Listas de entrada y salida . 
El bucle FOR...NEXT . 
Bucles anidados 
Intercambio . e 
Objetivos de la Unidad 4 . 


Respuestas a PF y Ejercicios . 


Listas 
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110 
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129 
129 


4.1 Variables 


Ya hemos visto cómo una ubicación de memoria puede almacenar varios valo- 
res diferentes durante la ejecución de un programa. De esta forma el valor de una 
ubicación de memoria puede variar durante una ejecución y por eso nos referimos 
a menudo a las ubicaciones como variables de un programa. De modo que las 286 
etiquetas de almacenamiento: 


A, A0, A1,... A9, B, BO, ... Z8, Z9 
se llaman variables numéricas, y sus correspondientes 26: 


A$, BS, ... Z$, 


4.2 Listas 


Las listas y los supermercados parecen entrañablemente unidos. Vamos con la 
lista de lo que deseamos comprar, y salimos con los elementos comprados y una 
lista de precios en forma de recibo. La lista de precios se produce al trasladar los 
elementos de la cesta a la registradora. Esto es un proceso de azar, pero podríamos- 
haber dado otro significado al orden de la lista si, con mucho esfuerzo, hubiésemos 
ido sacando de la cesta los artículos por orden de precio, es decir, el más barato 
primero, después el siguiente... etc., o bien por orden de peso. De esta forma le 
daríamos un aspecto diferente cada vez a la lista de los precios. Ser capaz de relacio- 
nar la posición en la lista de alguna manera al valor del elemento, es la característica 
más útil de la lista, como veremos al final de esta unidad. 
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4.3 Listas variables 


La mayoría de los datos que hemos considerado hasta ahora pueden estar clasi- 
ficados en conjuntos. Hemos considerado conjuntos de puntuaciones de pruebas, 
conjuntos de nombres asociados a números de teléfonos, conjuntos de países y sus 
capitales. La mayoría de los datos pueden clasificarse de alguna forma. Si estamos 
coleccionando datos para el mismo propósito, este propósito da el conjunto de valo- 
res y características comunes. Hay ventajas evidentes al nombrar las ubicaciones de 
memoria destinadas a elementos dentro de un conjunto, de forma que se enfatice 
que el elemento pertenece al conjunto. Mejor aún, sería más útil si la ubicación de 
memoria identificara la posición del elemento dentro del conjunto. 

Por ejemplo, memoria, o variable, notación; esto enfatiza que los valores están 
de alguna forma asociados unos con otros, y ocupan una posición dentro del con- 
junto. Esto se realiza de la forma siguiente. 

Piensa en un juego de puntuaciones en la libreta de un profesor. Forman una 
lista natural y podrían almacenarse en memoria de la siguiente manera: 


Elemento Símbolo de ubicación 
El primer elemento de la lista M es 42 M() = 42 

El segundo elemento de la lista M es 67 MQ) = 67 

El tercer elemento de la lista M es 90 MG) = 9% 

Elli mis 


M(1), MG), M(3) son como ubicaciones separadas de memoria. Puedes tomar 
cualquiera de las 26 ubicaciones y poner números entre paréntesis tras ellas para 
hacer listas de memoria, ejemplo 


Nombre de lista Ubicaciones de memoria en esa lista 
M(D MO), MQ), MG) ... 
Cs) CS$(1), CS), CS(3) ... 


El número entre paréntesis (aparece aquí como 1) se llama índice de la lista, 
y puede ser cualquier número positivo entero dentro de la capacidad de memoria 
de tu computador. 


Listas de strings 

Como ves en las listas anteriores, las listas pueden ser tanto numéricas como 
de caracteres. De esta forma, si tu denominas una lista como M(I) está claro que 
te refieres a una lista numérica, pero M(1) sería una lista de strings, ejemplo una 
lista de nombres se podría almacenar: 
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Figura 1 Nombres de lista de strings. 


Listas y series 

Una tabla de datos, como la que se ve en la Figura 1, es mencionada a menudo 
como una serie de datos. Con los datos dispuestos en filas y columnas en esta forma 
(indexado por elemento), una tabla se dice que es una serie bi-dimensional. Veremos 
cómo el BASIC las maneja más adelante. 


DIM o ¿cuánto mide la lista? 

¡Tanto como quieras! Podemos elegir listas de cualquier longitud, teniendo en 
cuenta de que hemos de advertir antes al computador. Lo hacemos con la sentencia 
DIM que aparece en el programa antes de que se haga referencia a la tabla. 


DIM para tablas numéricas 
Si quieres usar una tabla, digamos M, para almacenar 8 números, le has de 
anunciar tu intención al sistema con la sentencia: 


DIM M(8) 


Esto le dice al computador que reserve espacio en memoria para 8 variables 
MO), MQ), MG), ..., M(8). 


DIM para tablas de strings 

Cuando quieres reservar espacio para una tabla de string tienes que decir al com- 
putador dos cosas: (a) el número de strings que quieres almacenar en la tabla y (b) 
la longitud máxima de cualquier string. Esto lo haces con la sentencia DIM así: 


DIM N$ (10, 15) 
A A longitud máxima de string 
número de strings 


Esto crea 10 ubicaciones N$(1), N$(2), N$(3), ..., N$(10) cada una capaz de 
albergar un string de 15 caracteres. 
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Elementos y números índices 

Los siguientes ejercicios de papel y lápiz reforzarán tu entendimiento de lo que 
significan los términos elemento e índice, y su relación. También es una preparación 
para los procedimientos de clasificación que veremos más adelante. 


Ejemplo 1 

Transfiere el elemento de menor valor de la siguiente lista a la posición 1, com- 
parando cada uno de los valores del resto de la lista con el valor actual de la posición 1. 
Intercambia los elementos si el del resto de la lista es menor que el de la posición 1. 
(¡Es más fácil hacerlo que describirlo!) 


Lista: 3, 42, —8, 9, —11 


Etapas de comparación e intercambio 
posición valor pasada 1 pasada 2 | pasada 4 
Ó índice € cóti céi 
1 


3 3 —8 


Figura 2 Clasificación para situar el número menor el primero. 


PF 1 
Lleva a cabo el procedimiento del Ejemplo 1 para los siguientes números: 
6,8,4,7,3,9,1. 


4.4 Lista de entrada y salida 


Antes de que podamos manejar los elementos de una lista los hemos de introdu- 
cir en el computador y, después del proceso usualmente sacar otras listas. 


Ejemplo 2 
Escribe un programa BASIC para introducir tres números en una lista y sacar 
los elementos de la lista en orden inverso. 


Solución 
Llamaremos la lista a(i). El programa requerido es, pues: 
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10 REM **Example 2** 
20 REM **Reversing a short list** 
30 DIM a(3) 
40 INPUT a(1) 
50 INPUT a(2) 
60 INPUT a(3) 
70 PRINT 
80 PRINT 
90 PRINT a(3) ,a(2) ,a(1) 
100 STOP Programa l. Inversión del orden de la lista 
Ejecución típica 
RUN 
input: 29, 32, —17 
—17 32 
29 
[K] Programa 1. 


Hemos hecho lo que se pedía en la pregunta, pero no hemos avanzado en la 
técnica de programación, ya que podíamos haber hecho el trabajo con técnicas que 
aparecieron en unidades anteriores, simplemente llamando a las variables p, q y r 
y sacando la relación como r, q y p. Para hacer el trabajo mejor necesitamos contar 
la lista tal como fue entrada y así poder usar el contador en orden inverso al impri- 
mir la lista. El siguiente ejemplo añade este refinamiento. 


Contando una lista 
Ejemplo 3 

Escribe un programa para introducir cinco números en una lista, mostrar los 
elementos de la lista y sus Índices en forma de una tabla, y luego sacar los elementos 
de la lista en orden inverso. 


Solución 
Hay tres partes principales para la solución y podemos verlas en forma de dia- 
grama en la Figura 3. 


Etapa 1 


2 


Etapa 2 Etapa 3 
100-180 


200-270 
sacar la lista 
en orden 
inverso 


parar 
Figura 3 Etapas en la solución del Ejemplo 3. d , 


visualizar 
la tabla 


entrar la 


lista fe — 
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Etapa 1 Usamos la variable c para contar los elementos de la lista en entrada y 


para actuar 


10 
20 
30 
35 
40 
50 
60 
70 


como índices para la lista. 


REM **Input a list** 

DIM 1(5) 

LET0=1 

REM **Start of list input loop** 
INPUT "Enter the next number ”;l(c) 
PRINT 1(c) 

LET ec=c>+1 

IF c<=5 THEN GO TO 35 


Programa 2. Contando una lista en entrada. 


Etapa 2 La tabla tendrá la forma que viste en la respuesta a PF 1. Un simple PRINT 


23 Será 


100 
110 
120 
130 
140 
150 
160 
170 
180 


suficiente para imprimir la tabla. 


REM **Display the table** 

PRINT 

PRINT 

PRINT "Index", "ltem” 

LET c=1 a 

REM **Start of table print loop** =—————————— imprime la tabla 
PRINT c,l(c) 

LET c=c+1 

IF c<=5 THEN GO TQ 150 


Programa 3. Impresión de la lista en orden de entrada 


Etapa 3 Ahora hacemos que c cuente desde 5 lasta 1 para imprimir la lista en orden 


inverso. 


200 
210 
220 
230 
240 
250 
260 
270 


Hemos 


REM **Output list in reverse** 

PRINT 

PRINT 

LET c=5 

REM **Reverse print loop** 

PRINT l(c) € _—_—_——_—_—_____— imprime la lista invertida 
LET c=c—1 

IF c>=1 THEN GO TO 240 


Programa 4. Impresión en orden inverso 


mostrado los tres módulos de programa que dan la solución. Todo lo 


que hemos de hacer ahora es juntarlas comao sigue. Los pocos cambios (que no 
afectan a lo que hace el programa) se explican en el comentario. 
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Cambios 


REM **Input a list** 

PRINT "List handling program” 

DIM ((5) 

LET c=1 

REM **START of list input loop** 

INPUT "Enter the next number ”;I(c) 

PTINT 1(c) 

LET0=0c+1 

IF c<=5 THEN GO TO 35 

A NI ———— REM pava explicaciones 


REM **Display the table** 


PRINT 

PRINT 

PRINT "Index”,”ltem” 

LETd=1  _— Hemos usado d como índice 
REM *Start of table print loop** para recordarte que su nom- 
PRINT d,l(d) bre no importa —sólo su 
LET d=d+1 valor 

IF d<=5 THEN GO TO 150 Más REMS 


REM e ARA ] Eo 

REM no a AA Y hemos usado e aquí 
REM **Output list in reverse** 

PRINT 

PRINT 

LETe=5 

REM **Reverse print loop** 

PRINT 1(e) 
LET e=e—1 STOP añadido 


IF e>=1 THEN GO TO 240 
sTOP 


Programa 5. El programa completo 


RUN 
List handling program 
15 
23 
—4 
19 
Index Item 
1 -8 
2 15 
3 23 
4 -4 
5 19 
19 
-4 
23 
15 
-8 

K] Programa $. 
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sita 


10 
15 
20 
22 
24 
30 
35 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
195 
200 
210 
220 
230 
240 
250 
260 
270 
280 
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Para resolver el problema del Ejemplo 3 hemos hecho mucha programación, 
pero el programa sólo trabaja con una lista de cinco números. ¡Una pequeña recom- 
pensa para un gran esfuerzo! Pero si cambiamos las sentencias 20 a 70 que contaban 
los cinco elementos, podemos hacer que el programa acepte cualquier número de 
elementos, siempre que conozcamos de antemano la cantidad de éstos que vamos 
a tratar. 
Pero necesitamos hacer DIM | dependiendo del número de elementos que vamos 
a introducir. Como el contador c se incrementará en n+ 1 (ver línea 70), DIM | nece- 
ser n+1. También necesitamos cambiar '5' a 'n' en líneas 180 y 230. 


REM ** input a list of n items** 
PRINT "List handling program” 


INPUT "how many numbers in the list? ” 


PRINT n;” Items input” 

DIM ln +1) 

LETo=1 

REM **Start of list input loop** 


INPUT "Enter the next number ”:;l(c) 


PRINT 1(c) 
LETo=0c+1 
IF c<=n THEN GO TO 35 


REM RSS 


REM SO A 


REM **Display the tables** 
PRINT 

PRINT 

PRINT "Index”,”"ltem” 

LET d=1 

REM **Start of table print loop** 
PRINT d,l(d) 

LET d=d+1 

IF d<=n THEN GO TO 150 
REM OOO AAA AAA 


REM 4 RARA RARA 


REM **Output list in reverse** 
PRINT 

PRINT 

LET e=n 

REM **Reverse print loop** 
PRINT I(e) 

LET e=e—1 

IF e>=1 THEN GO TO 240 
sTOP 


También cambia “5” a 'n en las líneas 180 y 230. 


Ahora podemos introducir 
cualquier número de ele- 
mentos en la lista l(c) 


Programa 6 


Para introducir cualquier número de elementos en ubicaciones individuales con 
sólo media docena de sentencias hace falta mejorar la técnica de programación. Pero, 
desde luego, ¡nunca estamos satisfechos! ¿Por qué hemos de contar nosotros los 
elementos, especialmente en largas listas, cuando el computador puede hacerlo por 
nosotros? 


El siguiente ejercicio te pide que hagas esto. 


Ejercicio 1 

Escribe un programa BASIC para (a) entrar una lista de números de longitud 
desconocida; terminar la lista con el ficticio *—9999”. Llamar esta lista p(c) y asumir 
que la lista puede tener 30 o menos elementos. Así DIM p(31) define la lista. Verifica 
tu respuesta. (b) Ahora modifica tu programa para visualizar aquellos elementos cu- 
yos indices sean impares. 


4.5 El bucle FOR ...NEXT 


Como hemos dicho (¡repetidamente!) un computador realiza muy bien las ope- 
raciones repetitivas. Para controlar estas operaciones usualmente las contamos. Des- 
de que introdujimos la idea de contar en la Unidad 2, hemos usado la siguiente se- 
cuencia de sentencias varias veces. 


LET6=1 


LET c=c=+1 
IF c<=n THEN volver a Programa 7 


Estas operaciones repetitivas son tan importantes en programación que se hace 
una provisión especial para ellas. En BASIC esto se realiza por medio de la facilidad 
FOR... NEXT 52: 

La secuencia del Programa 7 tiene tres elementos: 


LET c=1 que inicia el contador 


LET c=c+1 que define el paso de incremento (1 en este caso; 2 en la línea 270 
de la respuesta al ejercicio 1) 


c<=n que detiene el proceso de cuenta 


La misma característica ocurre en el bucle FOR... NEXT... donde la secuencia 
anterior se convierte en: 
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inicio final incremento 


FOR c=1 TO n STEP (1) 


NEXT c Programa 8 


Observa que NEXT c devuelve el control a la línea FOR c=1 TO n STEP (1) sin 
que tengas que referenciar la línea. 

Las tablas y los bucles FOR ... NEXT fueron hechos el uno para el otro. Juntos 
forman posiblemente la más potente facilidad del BASIC. Veamos en detalle cómo 
trabajan estos bucles, y luego repetiremos algunas de nuestras anteriores rutinas usando 
esta técnica. 


Ejemplos de bucles FOR ... NEXT en acción 


(a) 10 FOR ¡=4 TO 10 STEP 2 (b) 10 FOR ¡=3 TO 10 STEP 3 
20 PRINT ¡ 20 PRINT j 
30 NEXT i 30 NEXT j 
40 STOP 40 STOP 
RUN RUN 
4 3 
6 0 
8 3 
10 6 
9 
(c) 10 FOR k=11 TO 4 STEP —2 (d) 10 FOR 1=4 TO —5 STEP —2 
20 PRINT k 20 PRINT 1 
30 NEXT k 30 NEXT 1 
40 STOP 40 STOP 
RUN RUN 
11 4 
9 2 
7 0 
5 —2 
—4 


Programas 9-12 


PF 2 
Escribe las listas de números que producen los siguientes bucles. 
(a) 10 FOR e=1 TO 9 STEP 2 (c) 10 FOR g=8 TO —4 STEP —5 
20 PRINT e 20 PRINT g 
30 NEXT e 30 NEXT g 
40 STOP 40 STOP 
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(b) 10 FOR f=—30 TO —18 STEP 3 (d) 10 FOR h=—2 TO —11 STEP —4 


20 PRINT f 20 PRINT h 
30 NEXT f 30 NEXT h 
40 STOP 40 STOP 


Programas 13-16 


FOR ... NEXT ... con STEP (1) 

Los ejemplos anteriores y PF'”s tenían pasos de 2, 3, —2, —4 y —5. A menudo, 
sin embargo, queremos simplemente usar un paso de 1. Cuando es éste el caso, pue- 
des omitir STEP (1) de la sentencia. Así 


FOR c=1 TO n 


NEXT c Programa 17 
lo toma el computador como un paso de 1. 


Rutinas de entrada/salida con FOR ... NEXT 

Las rutinas son más fáciles con FOR ... NEXT. Por ejemplo, podemos volver 
a escribir el Programa 5 usando estos bucles. Observa que en las líneas 40 y 160 
requerimos un paso de 1, por lo que se ha omitido STEP (1). 


Comparación con el Programa 5 


10 REM **Input a list of 5 names** 

15 PRINT "List handling program" 

20 DIM 1$(5, 10) 

30 REM **Start of list input loop** 

40 FOR c=1 TO 5 

50 INPUT "Enter the next name”; I$(c) Y_——————_—_—_——— Sustituye líneas 20 a 70 
60 PRINT I$(c) 

70 NEXT c 


80 REM **obooornn rr AAA 


90 REM *** rara AA AA 


100 REM **Display the table** 

110 PRINT 

120 PRINT 

130 PRINT "Index”,"ltem” 

140 PRINT 

150 REM **Start of table print loop** 
160 FOR d=1 TO 5 

170 PRINT d,I$(d) 

180 NEXT d 


190 REM KAR AA RRA AR RR 


195 REM PSone 


200 REM **Output list in reverse order** 


Sustituye líneas 140 a 180 
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210 
220 
230 
240 
250 
260 
280 


PRINT 
PRINT 
REM **Reverse print loop** 


Sustituye líneas 230 a 270 


FOR e=5 TO 1 STEP —1 
PRINT e,I$(e) 
NEXT e 
STOP 
Programa 18. Uso de FOR 
RUN 
List handling program 
Dickens 
Hardy 
Snow 
Austen 
Orwell 
Index Item 
1 Dickens 
2 Hardy 
3 Snow 
4 Austen 
5 Orwell 
5 Orwell 
4 Austen 
3 Snow 
2 Hardy 
1 Dickens 


(K] Programa 18. 


Bucle general FOR ... NEXT 


FOR i = s TO f STEP ()) 


NEXT ¡ 


+... NEXT ... para invertir una lista 


El bucle puede ser expresado en términos generales así 


teniendo en cuenta que s, f y j tengan valores razonables antes de que se ejecute 
el bucle. Valores irrazonables serían algo así como 


ya que no puedes ir de 2 a 10 en pasos de —3. 
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s=2,f=10, y STEP(—3) 


Ejercicio 3 
Si tienes curiosidad matemática puedes intentar lo siguiente. Escribe un progra- 
ma para tabular los cuadrados y cubos de los enteros impares desde 1 a 21, inclusive. 


Visualización de la salida 
Siempre nos gusta tener una clara representación de los datos de salida en una 
pantalla o impresora. La facilidad FOR ... NEXT se usa mucho para rutinas de salida. 
Usado para saltar líneas. Como vimos en la carta de la Unidad 3, es útil el 
“imprimir” líneas en blanco. La siguiente rutina lo hace por ti. 


10 REM **FOR...NEXT** 

20 REM **To skip lines in a print routine** 

30 PRINT "Hello" 

40 REM **Start of loop** 

40 FOR h=1 TP 10 Instrucción para impri- 
50 PRINT mir 10 líneas en blanco 
60 NEXT h 

70 PRINT "Hello from 11 lines below” 

80 STOP Programa 19 


RUN 
Hello 


Hello desde 11 líneas más abajo 


[K] Programa 19. 


Dibujando una línea. Podemos querer imprimir líneas a lo largo de la pantalla 
O página, ejemplo bloques separados de datos o subrayados. Lo siguiente lo hace. 


10 REM **FOR... NEXT ** 

20 REM **To draw lines** 

30 REM **Start of loop** 

40 FOR m=1 TO 32 | Instrucción para impri- 


50 PRINT "*”; mir * 32 veces 

60 NEXT m 

70 PRINT 

80 STOP Programa 20 
RUN 


ORO RARA A AAA AA 


PF 3 
¿Por qué la línea 50 del Programa 20 tiene punto y coma al final de la línea? 
¿Qué ocurre si la línea 50 es 


50 PRINT ”*” 2 
[K] Programa 20. 
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Bucles en diagramas 
Son tan importantes los bucles que tienen una simbología especial para ellos: 


() ENTRADA 


Figura 4a Diagrama simbólico para bucles FOR...NEXT... 


Los extremos sueltos son las conexiones a la actividad: 


actividad 


Figura 4b Relación de la actividad en el diagrama. 


4.6 Bucles anidados 
El programa 20 dibujaba una línea de 32 asteriscos. Podemos hacer de nuevo 


el programa de modo que especifiquemos en la línea 40 un número de asteriscos 
y así ir variando la longitud de la linea. Así con el programa: 
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10 REM **FOR...NEXT** 

20 REM **To draw lines** 

25 LET n=1 - *————————————————— Número tope en línea 40 
30 REM **Start of loop** Ñ 

40 FOR m=1 TO n 

50 PRINT **”; 

60 NEXT m 

70 PRINT 

80 STOP Programa 21 


obtenemos 


RUN 


Para variar la longitud de la línea, simplemente hacemos 
25 LET n= longitud requerida 
y tecleamos RUN: 


25 LET n=2 
RUN 


*or 


25 LET n=3 
RUN 


eo 


25 LET n=4 
RUN 


RR 


25 LET n=8 
RUN 


MOR 


25 LET n=16 
RUN 


RAHRRRRA RR RARA RRA 


25 LET n=32 
RUN 


PORO ROO ROO OOOO ORIO ROO ROO RO ROI 


[K] Programa 21. 


Bucles anidados FOR ... NEXT 
Has visto en el Programa 21 cómo se puede controlar el efecto de FOR... NEXT 
de las líneas 40 y 60 cambiando el valor de n. ¿Por qué no controlar el valor de 
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n con otro FOR... NEXT? El siguiente programa lo hace. El bucle m de las líneas 
50 a 70 se controla a sí mismo por el bucle n de las líneas 30 a 100. El bucle m 


se dice que está anidado dentro del bucle n. 


10 REM **Nested FOR... NEXT** 

20 RA **Start of outer loop (no. of rows)** 
30 TO 16 
40 


A 
FOR n=1 


50 | $ 
60 

70 
80 


90 


Bucle interno; controla 
número de * en cada 
hilera 


Bucle externo; controla 


100 
110 REM **End of outer loop** 
120 STOP 


RUN 


* 
* k 

xx 

ARA 

RARA 

RÁRA RR 

MARA 
ARANA 
RRA 
KKAARARARA 
KARA RARA RA 
RRA A 
RRA RA 
KARA RAR RARA 
KARA AKA A RRA RAR 


FORMO ROO AR 


las hileras 


Programa 22. Bucles anidados 


Es importante que entiendas cómo trabaja. Por ejemplo, cuando el computador 
acaba de imprimir la novena hilera de asteriscos m será 9. Se abandona entonces 
el bucle interno y el control vuelve al bucle externo. Se imprime una línea en blanco 
y entonces n se incrementa a su próximo valor de 10. El control vuelve al bucle 
interno en línea 30. El computador vuelve a ejecutar el bucle interno (líneas 50 a 
70) diez veces antes de salir de nuevo a la línea 80. 


Programa 22. 


Mús modelos de impresión de bucles 
Dos ejercicios más 
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10 REM **Nested FOR... NEXT loops** 
20 LETp=1 


30 REM 4 OOOO 


40 FOR n=1 TO 5 


50 LET p=2*p -e— Multiplica valor actual de p 
50" REM ASA AA AER por 2 cada paso del bucle 

70 FOR m=1 TO p 

80 PRINT "*”; 

90 NEXT m 

100 REM tte ener 

110 PRINT 

120 NEXT n 

130 REM + RR 

140 STOP Programa 23 
RUN 

** p= 2 

kk p= 4 
Ara p= 8 
AARAARREARARRA A p=16 
HHARARARARARA AER ARA RRA p=32 


[K] Prograna 23. 


Ejercicio 4 
Escribe un programa usando bucles anidados para imprimir las tablas de multi- 
plicar del 7, 8 y 9. 


Ejercicio 5 
Escribe un programa usando bucles anidados para imprimir rectángulos de aste- 
riscos de dimensiones a gusto del usuario. 


4.7 Intermedio 


Hemos considerado el problema de encontrar el más pequeño de dos números 
en la Unidad 2, y el más pequeño de 3 en la Unidad 3. En esta unidad hemos hecho 
ejercicios intercambiando elementos de la lista, en preparación para escribir un pro- 
grama de intercambio. 

Hemos estado comparando los elementos de una lista con el de la posición 1, 
e intercambiando si el de la lista era más pequeño que éste. Cuando lo hiciste en 
la PF 1, lo hiciste manualmente y no habíamos contemplado el problema de escribir 
un programa para realizar el intercambio. No podemos decir 


Copia A en B y luego B en A 
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ya que la primera transacción “copia A en B” destruye lo que había en B, dándonos 
copia de A en A y en B. En vez de esto, tenemos que poner el contenido de B en 
algún almacenamiento temporal antes de que el contenido de A sea copiado en B. 
El proceso diagramático es: 


Donde — significa que el número a la derecha se almacena en el de la izquierda. 

Suponte, por ejemplo, que quieres clasificar una lista de nombres (lista n$) y 
quieres intercambiar el primero, n$(1) con algún otro n$(k) en posición k. Se consi- 
gue utilizando ubicación temporal t$. 


E, SA 

t$ — n$(k) 
n$(k) — n$(1) 
n$(1) — t$ 


Recuerda que es el contenido de n$(1) y n$(k) que están siendo manejados. 
Suponte n$(1) =FRED y n$(k)=JIM entonces, esto es lo que pasa: 


Ubicaciones de almacenamiento 


so [so Js 7 


arranque 
próxima etapa 
próxima etapa 
fin 


(El hecho de que t$ aún contenga JIM no importa: hemos conseguido el propó- 
sito del intercambio.) 


Diagrama para clasificar nombres 
En la clasificación numérica de PF 1, quisimos poner el número más bajo al 
principio de la lista. De modo que comprobamos cada nombre contra el primero 
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de la lista y lo intercambiamos sólo si el primero es más alto que el que se está 
comparando en este momento. El diagrama para esto es: 


contador empieza en 2 


comparación 


intercambio 
n5$(D) 8 


y intercambio si se necesita 
n$(k) 


suma 1 a contador 


¿acabado? 


SALIDA 


Figura 5a Diagrama para intercambio. 


O, si queremos usar el diagrama especial de FOR... NEXT, sería: 
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id 
SALIDA 


n$1) 


intercambio 


de ¿je 


Diagrama ¡ara intercambio con símbolo FOR... NEXT. 


Figura 5b 
Esta nueva rutina puede usarse para construir un programa. 


Escribe un programa para entrar una lista de nombres de longitud desconocida 
en una tabla, imprimir esta lista con índice en orden de enirada. Por medio de la 


Ejemplo 4 
rutina de intercambio situar cl nombre de menor valor alfabético en la posición 1 
de la lista, y sacar la nueva lista. 


Solución 


( arranque 


entrar una lista 
de nombres 
de longitud 

desconocida 


visualiza esta 


nueva lista con 
indice 


visualiza esta 
lista con su 


indice 


Figura 6 Diagrama para el Ejemplo 4. 
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Programa de intercambio 


10 REM **First in alpha-order** 
20 PRINT "This program prints out the first 
item alphabetically from a list” 

30 DIM n$(20,6) 

40 PRINT 

50 PRINT "Enter a list of names one by one” 

60 PRINT 

BO REM tren 

90 REM **Inputting list** 
100 LETi=1 
110 INPUT "Next name? ”¡ns(i) 
120 PRINT n$() 

130 IF n$()="zzz2 " THEN GO TO 190 entrada de la lista 
140 LET i=i+1 
150 REM **go back for next name** 
160 GO TO 110 Pl 

170 REM eo 


180 REM **zzzz not wanted in list, so** (+ averiguar número de 
190 LET n=i—1 nombres introducidos 
200 REM + eonnon o 

210 REM **Print list**” 

220 PRINT 

230 PRINT "Index” "Item" 

240 REM **Start of print loop** 


250 FORj¡=1TOn imprimir lista 
260 PRINT J,ns() 
270 NEXT] 


280 REM “*trrrrraner eran amaaAo 
290 REM **Interchange routine** 
300 FORk=2TOn intercambiar 
310 IF n$(1)<n$(k) THEN GO TO 350 
320 LET t$=n8$(k) 
330 LET n$(k) =n$(1) 
340 LET n$(1) =$ 
350 REM **jump to here if items already 
in order** 
360 NEXT k 
370 REM tere 
380 REM **Ouiput interchanged list** 
390 PRINT 
400 PRINT "List after interchange” 
410 PRINT 


420 PRINT "Index" "item" ] aer dto e Eo e dd 
430 FORI=1TOn Í ——————— — ¡imprimir orden intercambiado 


440 PRINT 1,n$() 

450 NEXT | 

AGO REM ***tereranmnnmuerrraaars 
470 STOP 


Programa 24. Búsqueda del primer elemento en orden alfabético 


Observa que la línea 130 tiene dos espacios después de “zzz”; ¡es muy importante! 
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Ejecuciones de programas de aintercambio 


RUN 
Enter 


a list of names one by one 


End the list with 22Zzz 
Jones 

Price 

Davies 

Evans 

Z22Z 

Index Item 

1 Jones 
2 Price 
3 Davies 
4 Evans 


List after interchange 


Index 
y 


2 
3 
4 


Si una ru 


Item 
Davies 
Price 
Jones 
Evans 


tina de impresión se inserta en el procedimiento de intercambio como 


se muestra abajo (líneas 342 a 360), podemos ver el efecto de cada paso del bucle. 
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280 >REM * Ro AA AAA AA 


290 
300 
310 
320 
330 
340 
342 
344 
346 
348 
350 


360 
370 


REM **Interchange routine** 
FOR k=2 TO ñ 

IF. n$(1)<n$(k) THEN GO TO 350 
LET 1$ = n$(k) 

LET n$(k) =n$(1) 

LET n$(1)=1$ 


FOR I|=1 TO n 
PRINT n$(;" ”; Rutina de impresión para observar el paso del bucle 
NEXT | 


PRINT 

REM **jump to here if items already 
in order** 

NEXT k 


REM OOOO A A AAA 


Kj Programa 24 con líneas 280 a 370 como antes. 


Objetivos de la Unidad 4 


Ahora que has completado esta Unidad, verifica si eres capaz de escribir pro- 
gramas usando: 


Nombres de ubicación en listas 
para imprimir listas 
para introducir listas 


Contadores para contar el número de elementos de una lista 


bucles FOR... NEXT 
para imprimir una lista 
para introducir una lista 
para imprimir asteriscos 


Bucles anidados 
para imprimir asteriscos 


Rutina de intercambio 


Respuesta a PF y Ejercicios 


PF 1 
Los seis pasos del procedimiento se muestran en la ejecución del siguiente pro- 
grama: 


RUN 
Enter a list of names one by one 
End the list with zzzz 


Next name? 6 
Next name? 8 
Next name? 4 
Next name? 7 
Next name? 3 
Next name? 9 
Next name? 1 
Next name? 2ZZz 
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>: 
o 
y) 
x 
5 
D 
3 


NODNDAD0N= 
200300 


2000 
00 (09 00 0000 Co 
DODODA 
AAA YY Y 
AARaAD00O0wN 
DO0Deo0ND0 
Sá de bd 


List after interchange 


Index tem 


NONAG0N=-= 
Ob yJDO=— 


Ejercicio 1 


10 
15 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
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Observa que usamos muchos REM para documentar lo que hace el programa. 


REM ** Input a list of numbers of unknown length** 

DIM p (31) 

PRINT "Number list program” 

PRINT "Enter the elements of the list” 

PRINT "item by item as requested” 

PRINT "end list with dummy (—9999)” 

PRINT 

LETc=1 ——— Secuencia de entrada 
REM **Stari of input sequence** 


NPUT "Enter the next number ";p(c) 
PRINT píc) 

F p(c)=-——9999 THEN GO TO 160 
LET c=c+1 

GO TO 90 


REM oo A AA 


REM **'c' counted —9999 as an item** 

REM **Input completed** Toma del total correcto 
LETn=c—1 del contador 

REM no OSOS SOON 

REM **Output items whose index is odd** 

REM **3=1+2. 5=3+2 7=5+2 etc 


** 


210 LET c=1 

220 PRINT 

230 PRINT 

240 PRINT "Odd index”,” Item" 
250 REM **Output sequence” * 
260 PRINT c,p(c) 

270 LET c=c+2 

280 IF c<=n THEN GO TO 260 


290 REM ** Poe ARA A 


300 STOP 


RUN 

Number list program 

Enter the elements of the list 
item by item as requested 
end list with dummy (—9999) 


42 

-12 

37 

92 

11 

3 

-9999 

Odd index ltem 
1 42 
3 37 
5 11 


Ejercicio 3 


10 REM **Squares and Cubes** 


20 PRINT "Squares and cubes generation” 


30 PRINT 
40 PRINT "Number-——Square——Cube"” 
50 REM **Start of loop** 

60 FOR ¡=1 TO 21 STEP 2 

70 LET s= 
80 LET c= 
90 PRINT i; 
100 PRINT ” 
110 PRINT ” 6 
120 NEXT ¡ 

130 STOP 


17) 


RUN 
Squares and cubes generation 


Number——Square--—-Cube 
1 1 1 
3 9 27 


Secuencia de salida 


Programa 25 


Programa 27 
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5 
7 
9 
11 
13 
15 
17 
19 
21 


25 125 

49 343 

81 729 
121 1331 
169 2197 
225 3375 
289 4913 
361 6859 
441 9261 


La salida es indecente, pero la mejoraremos cuando lleguemos a la próxima 
unidad, usando TAB. 


PF 3 


; Suprime el retorno de impresión, de modo que el cursor se detiene después de im- 
primir asterisco. El próximo asterisco se imprimirá en la misma línea. Sin el punto 
y coma los asteriscos se imprimirían uno debajo de otro y rebasarían la capacidad 


de la pantalla, generando un mensaje 'scroll?". 


Ejercicio 4 


10 REM **Multiplication Tables** 
20 PRINT "Multiplication Tables” 
30 REM **'Which table' loop** 
40 FOR t=7 TO 9 

50 REM **'generate the table' loop** 
60 FOR k=1 TO 12 

70 LET p=k*t 

80 PRINT k;” times ";t;" = ”;¡p 
90 NEXT k 

100 REM **end of inner loop** 
110 PRINT 

120 NEXT t 

130 REM **end of outer loop** 
140 STOP 
RUN 
Multiplication Tables 

1 times 7 = 7 
2 times 7 = 14 
3 times 7 = 21 
4 times 7 = 28 
5 times 7 = 35 
6 times 7 = 42 
7 times 7 = 49 
8 times 7 = 56 
9 times 7 = 63 
10 times 7 = 70 

11 times 7 = 77 
12 times 7 = 84 
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Programa 28 


1 times 8 = 8 

2 times 8 = 16 
3 times 8 = 24 
4 times 8 = 32 
5 times 8 = 40 
6 times 8 = 48 
7 times 8 = 56 
8 times 8 = 64 
9 times 8 = 72 
10 times 8 = 80 
11 times 8 = 88 
12 times 8 = 96 
1 times 9 = 9 

2 times 9 = 18 
3 times 9 = 27 
4 times 9 = 36 
5 times 9 = 45 
6 times 9 = 54 
7 times 9 = 63 
8 times 9 = 72 
9 times 9 = 81 


10 times 9 = 90 


11 times 9 
12 times 9 


Ejercicio 5 
10 
20 
30 
40 
50 
60 
70 
80 
90 

100 
110 
120 
130 
140 
150 
160 
170 


RUN 


man 
o] 
co 


REM **Rectangle** 

PRINT "Rectangle Program" 
INPUT ”Lengih of rectangle?”:;| 
PRINT 1; 

INPUT "Width of rectangle?";w 
PRINT ” by ";¡w 

REM **Outer loop** 

FOR ¡=1 TO 1 

REM **inner loop** 

FOR j=1 TO w 

PRINT "*"; 

NEXT ¡ 

REM **end of inner loop** 
PRINT 

NEXT i 

REM **end of outer loop** 


Todavía nos queda mucho que aprender sobre “tabulación” 


STOP Programa 29 


Rectangle Program 
7by 9 


RARA ARAR 


RRAKARARR 


ARHÁAAARAR 


MORONA 


KR RRARA 


RRA 


ERRAARARRR 
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UNIDAD 5 
Justificación de cadenas y PRINT 


Introducción . SI 
Longitud de un string de caracteres . 
Tablas de frecuencia . 

Diagramas de frecuencia . 

Tabulación . 

Manejo de strings . 

VAL . . . . 
Comprobación avanzada 

Impresión: PRINT AT . 

Objetivos de la Unidad 5 . 


Respuestas a Ejercicios y Pl 


135 
135 
136 
140 
142 
146 
151 
154 
157 
158 
158 


5.1 Introducción 


Las unidades anteriores trataban de temas introductorios. Esta unidad trata prin- 
cipalmente de strings, pero te encontrarás con la sentencia TAB, que es muy impor- 
tante en tu repertorio de impresión. El título de esta unidad es algo exagerado, pero 
por el final de esta unidad encontrarás la mayoría de las funciones de manejo de 
strings e impresión del BASIC. 


5.2 Longitud de un string de caracteres 


En la Unidad 3 preguntamos ¿cómo es de largo un string? De repente parece 
una pregunta absurda, pero el número de caracteres que contiene un string particular 
es a menudo información de vital importancia. Esto es especialmente así si procura- 
mos utilizar la memoria de un computador en particular con la máxima eficiencia. 

En BASIC la operación LEN (a$) da la longitud de a$ en número de caracteres. 


Asi: 

Si a$=”Fred” LEN (a$) = 4 

Si b$=”"1” , LEN (b$) = 1 
PF 1 

Cuáles son los valores de los siguientes: 

(a) LEN (c$) donde c$=”Ann” (c) LEN (e$) donde e$ =”72” 

(b) LEN (d$) donde d$=”A” (d) LEN (f$) donde f$ =”CAT 123” 
Ejemplo 1 


Escribe un programa BASIC para entrar una lista de diez palabras, finalizando 
con *zzzz”, e imprimiendo la longitud de cada palabra. 
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Solución 


Hemos hecho una rutina de lectura para entrar las palabras en una lista de 


strings, w$. 


10 
20 
30 


40 

90 
100 
110 
120 
130 
140 
150 
200 
900 


910 


RUN 


devise has 6 letters 
an has 2 letters 
algorithm has 9 letters 
and has 3 letters 


REM **Length of a word** 

REM 0er RA RARA AA 

REM **Read words from a data list one by one 
and output 

REM their lengths** 


REM + A 


READ w$ 

IF. w$="zzzz" THEN GO TO 200 
LET |=LEN w$ 

PRINT 

PRINT w$;” has ”;l;” letters” 

GO TO 100 

sToP 


DATA "devise”,”an”,”algorithm”,"and”,"write","a”, 
"BASIC" program” 
DATA "zzzz" 


Programa 1. Medición de longitud de palabras 


(Resultado cuando DATA 
contiene devise, an, 

algorithm, and, write, a, 
BASIC, program, zzz.) 


write has 5 letters 

a has 1 letters 
BASIC has 5 letters 
program has 7 letters 


K] Programa 1. 


5.3 Tablas de frecuencia 


la medición de la frecuencia con que algo ocurre se necesita comúnmente para 
el manejo de la información numérica. Por ejemplo, un conocimiento de la frecuen- 
cia con que ciertas letras ocurre en el lenguaje normal es un factor importante en 
las actividades de codificación. Para medir frecuencias es útil poder usar la simple 


técnica del análisis estadístico de tachar. Coge lápiz y papel. 


Ejemplo 2 


Averigua la frecuencia con que cada vocal ocurre en las siguientes palabras: 
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the, horse, stood, still, till, he, had, finished, the, hymn, which, Jude, repeated, un- 
der, the, sway, of, a, polytheistic, fancy, that, he, would, never, have, thought, of, 
humouring, in, broad, daylight 


Solución 
Hay dos maneras de plantear el problema. 


(a) Recorrer todo el texto contando las a's, repetir para las e's, etc. Esto impli- 
ca cinco pasadas a través de los datos. 
(b) Dibujar una tabla como la de abajo y tomar cada vocal en secuencia: 


thé: pone una marca en la hilera de la a; 
hórsé: pone una marca en la hilera de la o, y otra en la de la e; 
stósd: pone dos marcas más en la hilera de la o. 


16 
10 
10 

6 


thé, hórse, stódd, stMl, tMl, he, had, fíished, thé, hymn, which, Jude, repedted, 
úndéer, the, swáy, 6f, d, polythéWtic, fáncy, thát, he, wódld, never, háve, thódght, 
óf, húmodring, 1, bródd, daylight 


Figura 1 Contador de frecuencia. 


PF 2 
Usa el método de las marcas para construir una tabla de frecuencia de longitu- 
des de palabras, para las mismas del Ejemplo 2. 


Utilizando el computador para contar 

Habiendo encontrado un método casero, por medio de papel y lápiz para con- 
tar frecuencias, ahora necesitamos un método para que lo haga el computador. La 
potencia de las listas estriba en el uso de sus índices. 

Suponte que queremos contar el número de veces que los dígitos 0, 1, 2, ... 
ocurren en una secuencia. Podemos usar diez contadores: 


c(0), c(1), c(2) ... c(9) 
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cada uno de ellos será cero al comienzo. Para contar los digitos en la serie 473808 
tomamos el primer dígito de la secuencia: 4. Se añade 1 a c(4) y así sucesivamente: 


Dígitos entrados Contadores tras la introducción 


c(0) | <(1) | c(2) | (3) | c(4) | e(5) | c(6) | c(7) | c(8) | (9) 
0 0 0 


inicio 
4 


Así la idea es que cuando es introducido i en el teclado, se incremente en 1 
c(i). Esto usualmente se realiza en dos sentencias BASIC. 
120 INPUT ¡ ] 
140 LET c(i)=c()+1 <——«——_u— Un contador de lista 
Sin embargo, el Spectrum no nos permite usar c(0) como una ubicación —las 
ubicaciones deben empezar por 1. Ejemplo c(1), c(2), c(3), ... etc. Podemos evitar 
el problema usando 


c(1) para contar 0's 
c(2) para contar 1's 
c(3) para contar 2”s etc. 


De esta forma c(n) cuenta el n + 1”s porque cuando introducimos r lo incremen- 
tamos en 1 c(n+1). 


PF 3 
La secuencia 


10 INPUT n 

20 LET c(n+ 1)=c(n+ 1)+1 
se usa para contar los números (cantidades) de 0's, 1”s, etc. en la siguiente entrada 
de datos: 3, 1,0,5,9,9,6,6,6,0, 4, 4,2,4, 1,2, 1, 3,0, 2, 1, 3. Cuáles son 
los valores de: 


(a) c(4) después de haber entrado tres números 
(b) c(10) después de doce números 

(c) c(2) después de haberlos entrado todos 

(d) c(1) después de haberlos entrado todos 


Ahora usaremos este método en un ejemplo. 
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Ejemplo 3 


Escribe un programa para entrar una secuencia de dígitos únicos y visualizar 
la frecuencia de cada uno. 


Solución 


Un dígito es uno del juego de diez números O, 1, 2, 3, ... 9. Los entraremos 
uno a uno, con la terminación de la secuencia en —9999. 
La lista de contadores será de. diez: 
c(1), c(Q), c(3) ...c(10) 
El problema para resolverlo tiene dos partes. (i) La rutina de entrada y de incre- 
mento incorpora las dos sentencias 120 y 140 comentadas anteriormente. (ii) La ruti- 
na de salida está dirigida por un bucle FOR... NEXT, con el índice j variando de O a 9. 


10 REM **Count the number of times each digit is 
entered and store in a count-list c(i)** 
30 REM tr 
40 DIM c(10) 
100 PRINT "Input a list of single digits” 
110 PRINT ”end the lit with —9999" 
115 PRINT 
117 REM **next input now** 
120 INPUT "Next digit? ”:¡i Rutina de entrada e incremento 
121 PRINT i 
130 IF ¡=—9999 THEN GO TO 190 
140 LET c(i+ 1)=c(1+1)+1 
150 GO TO 117 
190. REM RR Uno 
200 CLS 
205 PRINT 
210 PRINT "Digit”,"Count” Impresión de la tabla 
220 PRINT 
230 FOR j=1 TO 10 
240 PRINT j—1.c() 
250 NEXT j 
260 STOP Programa 2. Contando con una lista de contadores c(i) 
Salida típica 
(Después de entrar 3, 7,6, 4,9, 1, 4, 9, 2,7, 8,0, 1, 5, 2, 7, —9999,) 
Dígito Contador 
0 1 
1 2 
2 2 
3 1 
4 2 
5 1 
6 1 
7 3 
8 1 
9 2 


K] Programa 2. 
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Tablas de frecuencia para longitudes de string 

Hemos escrito dos programas en esta unidad; el primero para averiguar la lon- 
gitud de strings, y el segundo para construir tablas de frecuencia. 

En el siguiente ejercicio queremos combinar estas dos ideas para construir una 
tabla de frecuencia de longitudes de palabras. Si lo deseas, puedes usar las palabras 
mencionadas como datos en el Ejemplo 2. Asume que las palabras no tienen más 
de 15 caracteres, así que la lista de elementos tendrá: 


(1, 10), 1G) ... 1115). 


Ejercicio 1 
Escribe un programa para leer un conjunto de palabras y visualizar una tabla 
de frecuencia de sus longitudes. 


5.4 Diagramas de frecuencia 


Diagrama de frecuencia para número de vocales 

Hagamos que el computador dibuje un cuadro para nosotros. Ya viste cómo 
se imprimía una hilera de asteriscos en la Unidad 4, direccionando debidamente la 
impresión en la pantalla mediante un bucle FOR...NEXT de rango variable. 


PF 4 
¿Qué aparecerá en la pantalla como resultado del siguiente programa si introdu- 
ces 2, 5, 7,8, 3 y 1? 


10 INPUT a 

20 FORi=1 TO a 

30 PRINT "*”; 

40 NEXT i 

45 PRINT 

50 GO TO 10 Programa 3 


Podemos hacer lo mismo usando las frecuencias de la Figura 1 para determinar 
el rango y de esta forma el número de asteriscos impresos. Esto generará un cuadro 
de distribución. 


Ejemplo 4 
Escribe un programa para imprimir un diagrama de frecuencia para la distribu- 


ción de las vocales del Ejemplo 2. 
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Solución 

Observa que este programa dibuja el diagrama de las frecuencias que ya tene- 
mos calculadas. Introducimos esas frecuencias en las líneas 40 a 80. 

Leímos las frecuencias (líneas 41 a 80) con un contador (k) donde f(1) es el 
número de a's, f(2) el número de 1's, etc. 

Después imprimimos asteriscos de acuerdo con los valores de f(k) (líneas 220 
a 250). 


10 REM **Frequency Distribution** 
20 REM **Preparation Pictures** 
30 REM **Frequency-List is f(k)** 
35 DIM f(6) 

40 LETk=1 

41 REM **input routine** 

42 PRINT "Vowel”,k 

44 INPUT "Enter frecuency ";f(k) 


46 PRINT f(k) Lectura de frecuencias y su 
60 IF f(k)=—9999 THEN GO TO 100 i 

70 LEPKk=k41 almacenaje en f(1), f(2) ... 
80 GO TO 41 


90 REM Paco 


100 REM **don't add —9999 to list** 
110 LET n=k—1 

190 REM noo AAA 

200 REM **Print Routine** 

205 CLS 
210 PRINT 

220 FOR x=1 TO n 

230 FOR y=1 TO f(x) 


240 PRINT "*”; Impresión de * sobre la pá- 
250 NEXT y ña 

260 PRINT E 

270 PRINT ñ 

280 NEXT x 


300 REM ERAKFRARRARAAAAARRR RARA 
Programa 4. Dibujo de distribución de frecuencias 


* 
e 
*..* 
¡RAR 


ARAHRRRRRA 


Diagrama de frecuencia para longitudes de palabras 
Si queremos dibujar un diagrama de frecuencias con las longitudes de las pala- 
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bras ocurridas en PF 1, necesitamos modificar el Programa 4. Son necesarias dos 
modificaciones: 


Primero la lista de frecuencia contiene más elementos. Hay 15 frecuencias 
(l a 15) más —9999. Añadimos 35 DIM f(16) al Programa 4. 

Segundo la rutina de impresión en línea 220 fallará cuando la frecuencia sea 0. 
¡No podemos direccionar el bucle FOR... NEXT de 1 a 0! Por eso debemos evitar 
que el programa entre en el bucle cuando la frecuencia sea O. Para ello añadimos 
225 IF f(x)=0 THEN GO TO 260. 


También debemos modificar las instrucciones de entrada a: 


42 PRINT "Length”,k 
44 INPUT "Enter frequency”;f(k) 


[K] Programa 4 (modificado). 


5.5 Tabulación 


Hemos obtenido los ingredientes esenciales de un cuadro, pero estamos lejos 
aún de un diagrama significativo. Lo tendremos si sabemos direccionar la impresión 
a cualquier posición predeterminada. En mecanografía se le llama a esto tabulación. 
En BASIC la función TAB es para eso. 

Hagamos lo mismo que hicimos en la unidad 3: un pequeño programa que se 
explique por sí mismo. 

Primero mira lo que ocurre si numeras las posiciones de impresión en la pantalla: 


50 PRINT "12345678901234567890123456789012" 

60 PRINT "a”;¡TAB 5;"e” ¡TAB_7;"1":TAB_19;"0";TAB_31;"u” 

RUN a 

12345678901234567890123456789012 

a ei o u Programa 5 
Puedes ver que TAB 5 imprime e en la sexta posición. ¿Por qué? Porque la má- 


quina cuenta las posiciones de impresión desde O. Esto se demuestra por el Programa 6 
donde la escala parte de cero: 


50 PRINT "01234567890123456789012345678901" 
60 PRINT "a”¡;TAB 5;"e”; TAB_7;"¡"¡;TAB 19;"0";¡;TAB_31;"u” 


RUN 
01234567890123456789012345678901 
a ei o Ú Programa 6 
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Ahora TAB 5 va a la posición denominada 5 pero es aún la posición 6 de la 
pantalla. 


Nota: En el Spectrum, TAB a es suficiente para TABular a posición a, pero otros 
computadores necesitan paréntesis, es decir TAB (a). 


PF 5 
Escribe un programa para imprimir COL 1, COL 2, COL 3 en la pantalla, con COL 1 
empezando en posición 0, COL 2 en la posición 10 y COL 3 en la 20. 


TAB variable y sus efectos 
Podemos direccionar la línea 60 de las vocales con un bucle FOR... NEXT para 
producir una tabla. 
50. FOR ¡=1 TO 7 
60 PRINT "a”;¡TAB 5;"e";TAB 7;"1”¡;TAB 19;"0"¡TAB 31;"u” 
70 NEXT Programa 7 


€ 
z 


DOS» pp» 
ocooóbooo 
o0o0ooooo 
CEEÉCCCEC 


He aquí otro ejemplo que muestra cómo podemos direccionar con una variable. 
Si usamos TAB (v) donde y es una variable, podemos mover el cursor a diferentes 
posiciones de la pantalla. El programa. 


30 FOR a=1 TO 10 Valor de a en TAB (a) determi- 
40 PRINT TAB (a);"Hello” - aria y 
50 NEXT a o por la variable a en el bu 
60 STOP ce: 

Programa 8 


produce 


RUN 
Hello 
Hello 
Hello 
Hello 
Hello 
Hello 
Hello 
Hello 
Hello 
Helto 
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Podemos ir más lejos y combinar estos dos efectos en un programa: 


50 FORi=0TO 6 
60 PRINT TAB (0+i);"a”; TAB (5+i);"e"¡TAB (7 +i)""¡TAB (19+i);"0";TAB 


(31 +i1)"u" 


70 NEXT ¡ 
80 STOP Programa 9 


RUN 


PF 6 


Escribe un programa para introducir tres números escogidos por el usuario y 
tres diferentes sitios dentro de la misma línea de pantalla. 


TAB y el diagrama de frecuencia 
Ahora podemos hacer el diagrama de la Figura 2 de una manera más atractiva. 
La rutina de impresión del Programa 4 (líneas 200 a 300) era: 


200 
205 
210 
220 
225 
230 
240 
250 
260 
270 
280 
300 


REM **Print Routine** 


TO n 
THEN GO TO 260 
T 


REM PROC IO A 


Programa 4 (modificado) 


Añadimos: 
línea 212 para imprimir encabezados de columnas 
línea 214 para imprimir una guía en la pantalla 
línea 216 para iniciar la división de columnas (el resto lo imprimíamos por el si- 
guiente bucle) 
línea 222 (en el bucle) imprime x y f(x). Esta línea termina con punto y coma para 
que la siguiente instrucción PRINT tenga lugar en la misma línea. 
Habrás tenido que estudiar esto cuidadosamente para ver todos los detalles: 


10 
20 
30 
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REM **Frequency Distribution** 
REM **Preparation Pictures** 
REM **Frequency-List is f(k)** 


35 
40 
41 
42 
44 
46 
60 
70 
80 
90 

100 

110 

120 

200 

205 

210 

212 

214 

216 

220 

222 


225 
230 
240 
250 
270 
280 
300 


RUN 


DIM 1(16) 

LET k=:1 

REM **input routine** 

PRINT "Length", k 

INPUT "Enter frequency ";f(k) 

PRINT 1(k) 

IF f(k) = —9999 THEN GO TO 100 

LET k=k+1 

GO TO 41 

REM tre rra a 

REM **don't add —9999 to list** 

LET n=k-—1 

REM HAKAAAAKARARA RRA 

REM **Print Routine** 

CLS 

PRINT . 

PRINT “Length” ; TAB 8;”"Freq" ; TAB 18 

PRINT ” Ñ 

PRINT TAB 7," "¡TAB 12% ” 

FOR x=1 TO n 

PRINT TAB 2:x,TAB 7;" | "¡TAB 9;¡f(x);TAB 
TAB 14; 

IF f09=0 THEN GO TO 250 

1 TO 100 


¿"Tally” 


PS 


Length Freq Tally > 212 


Efecto de la línea 222 


000-000-=0006pa0g— 
* 
* 
* 


E E EÍíZ_ A 


[K] Programa 10. 


230-250 como antes pero usando 
TAB 14 como una línea base (de línea 222) 


Programa 10 
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Ejercicio 2 

Modifica el Programa 4 para obtener una salida similar a la desarrollada por 
el Programa 10 e incluir los siguientes puntos: 

(a) un cambio adecuado de encabezamientos; 


(b) sacar las letras a, e, i, o y u como la columna de la izquierda; 
(c) una escala apropiada en la base del diagrama. 


5.6 Manejo de strings 

Echemos una mirada a un string que, aún siendo una entidad de propio dere- 
cho, contiene más de un elemento de información; por ejemplo, 23 Junio 1971 es 
una fecha simplemente, pero hay ocasiones en que sólo queremos contemplar parte 
de ella, como el mes. 


Clasificación de fechas 
Seguro que has visto en muchas ocasioanes documentos, fichas, etc., con enca- 


sillados como éste: 
| [ojojmimf[y [y 


Si analizamos D D M M Y Y veremos que esta representación tiene problemas. 
Compara 23 Junio 1971, o 230671 
y 14 Septiembre 1973, y 140973. 
La última de estas fechas tiene el número menor. En cambio 
4 Julio 1933, o 040733 
y 15 Enero 1967, y 150167 


la última fecha es la más grande. Claramente, pues D D M M Y Y no es muy útil 
para modificar fechas. 


146 


La solución es la forma Y Y M M D D. Esto hace que las cuatro fechas anteriores: 
330704, 670115, 710623, y 730914 
se clasifiquen correctamente. 


Las fechas se almacenan usualmente como números en la máquina para usarlas 
en cálculos pero son introducidas como strings para permitir procedimientos de veri- 
ficación antes de ser almacenadas. 

Si estamos interesados en un incremento salarial, entonces serían importantes 
las partes de año y mes. Si somos un centro musical y enviamos nuestros saludos 
a los clientes cada tres meses, para recordarles que deben afinar sus pianos, entonces 
lo que nos interesa es el mes. El dato entero es importante en sí mismo como en 
todo, pero vemos que ocasionalmente hay razones justificadas para operar sólo con 
parte de esta información. 


xSí(a TO b) 
Si queremos considerar parte de un string, necesitamos una sentencia BASIC 
que nos ayude. En el Spectrum, esta sentencia es 


x$(a TO b) 
Esto da los caracteres de x$ empezando por la posición a y terminando en la b. 
Así: 
si x$ = “cutting” entonces x$(3 TO 5) = tti 
Puedes probarlo con el siguiente programa. 
10 REM **Slicing demonstration** 
12 INPUT "Enter word to be sliced "¡m$ 
16 PRINT m$ 
20 INPUT "Input start of slice "a 
40 PRINTa 
50 INPUT "Input end of sice ";b 
60 PRINT b 
80 LET n$=mS8(a TO b) 
90 PRINT m$;"(:a;” TO ";¡b;")=":n$ 
100 STOP Programa 11 
[K] Programa 11. 
PF 7 


Si a$ = ”la2b3c4d”, que valen lo siguiente: 


(a) 253 TO 5) (c) a$(4 TO 4) 
(b) as(1 TO 4) 
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LEFTS, RIGHTS y MIDS 
En otras versiones de BASIC encontrarás 


LEFTS(x$,i) 
RIGHT$(x$,i) 
MID$(x$,1,j) 
LEFTS(x$,¡) te da los caracteres 1 a 1 empezando por la izquierda del string. Así: 


LEFTS(x$,1) = x$(1 TO ¡) 


RIGHT$(x$,¡) te da los i caracteres empezando desde la izquierda del string y yen- 
do a la derecha del mismo. Así 


RIGHT$(x5,i) = xS(LEN(xS—i+ 1) TO LEN(x8) 
MID$(x$,i,j) te da j caracteres de x$ empezando en posición i. Así 


MIDS(«$.¡,j) = x$(1 TO ¡+)) 


Manejo de string de longitud variable 

El siguiente programa produce todas las posibles composiciones desde la izquierda 
del string que introduzcas. Observa que el programa mide la longitud de la palabra 
que tú introduces con LEN(x$). 


10 REM **Slicing variable strings** 
20 INPUT "Enter a string”:x$ 


35 PRINT x$ 

40 FOR ¡=1 TO LEN (x$) LEN (x$) actúa como límite 
50 LET a$=x8(1 TO )) superior del bucle. 

60 PRINT ¡as 

70 NEXT i 

80 STOP Programa 12 
RUN 

hamstring 

1 h 

2 ha 

3 ham 

4 hams 

5 hamst 

6 hamstr 

7 hamstri 

8 hamstrin 

9 hamstring 


[K] Programa 12. 
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Ejercicio 3 
Escribe un programa que te permita introducir palabras, una a una y visualizar 
aquéllas que empiecen por una vocal. 


Ejercicio 4 
Escribe un programa que cambie la salida del Programa 12 a: 


f 

ef 

def 
cdef 
bcdef 
abcdef 


PF 3 

Escribe un programa que acepte de entrada números de teléfono de Londres 
en el formato 01 XXXZZZZ y visualizar sólo el código XXX. (Recuerda que los 
espacios en blanco también son caracteres.) 


Programa Mid-string 

Como habrás visto, tanto MID$ como x$(aTO b) pueden manejar sub-strings a 
la izquierda y derecha. Es decir, pueden darnos todos los posibles sub-strings. He 
aquí un programa que lo hace. Primero imprime todos los sub-strings de longitud 1, 
después todos los de 2 y así hasta imprimir la palabra completa, que es el único 
sub-string de la misma longitud que la palabra misma. 


10 REM **String test** 
20 INPUT "Enter a string ”;x$ 


22 PRINT_x$ 

25 FOR ¡=1 TO LEN (8) 

26| CLS 

27| PRINT x$;TAB (10);j;” letters” 

28| PRINT 

30 AT 1": TAB 10;'11234567890"” 
40/[FOR ¡=1 TO (LEN (x8)—j4 1) 

5O||LET a$=x$(1 TO ¡+j—1) 


PRINT ¡¡;TAB 6;¡;TAB 10;a$ 
NEXT i 
72| PAUSE 200 e 


75L_ NEXT j 
80 STOP 


Hace que el computador se detenga 
antes de aparecer la siguiente tabla. 


Programa 13 
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150 


RUN 


String 

j ¡ 
1 1 
1 2 
1 3 
1 4 
1 5 
1 6 
String 

j ¡ 
2 1 
2 2 
2 3 
2 4 
Z 5 
String 

j ¡ 
3 1 
3 2 
3 3 
3 4 
String 

j i 
4 1 
4 2 
4 3 
String 

j ¡ 
5 1 
5 2 
String 

j ¡ 
6 1 


[K] Programa 13. 


1 letters 


1234567890 


(6:3 == +0 


2 letters 


1234567890 
st 

tr 

r 

in 

na 


3 letters 


1234567890 
str 

tri 

rin 

ing 

4 letters 
1234567890 
stri 

trin 

ring 

5 letters 
1234567890 
strin 

tring 

6 letters 


1234567890 
string 


5.7 VAL 


Habiendo descubierto un método de manejo de strings, necesitamos ahora un 
método para examinar todo lo que hemos conseguido. Tal método es el uso de VAL(a$) 
que mira el valor numérico de af. 


VAL(a$) en el Spectrum nos da el valor numérico del string a$ suponiendo que 
a$ sólo contiene números. 


Programa para demostrar VAL 
El siguiente programa da VAL(n$) para cualquier string que entres. 


10 REM **The VAL function** 

20 INPUT "Next string";¡n$ 

21 PRINT n$ 

25 IF n$="zzzz" THEN GO TO 999 

30 LET n=VAL (n$) 

60 PRINT 

70 PRINT n 

80 PRINT 

90 GO TO 10 
999 STOP Programa 14 


RUN 

456 

456 

789 

789 

56t 

C Nonsense in BASIC, 30:1 


Observa el mensaje de error. El Spectrum no puede calcular VAL(56t) ya que 
el contenido es parcialmente numérico. 


[K] Programa 14. 


PF 9 
¿Cuáles son los valores de los siguientes? 
(a) VAL(a$) where a$=54 (£) VAL(SG1 TO 1) where f$ = 8am 
(b) VAL(bS) where b$ =76xy (8) VAL(g8(1 TO 2)) where g$=235 
(c) VAL(c$) where c$ = a3 (h) VAL(h$(3 TO 3) where h$ = 593 
(d) VAL(d$) where d$ =-132 (1) VAL(S$(2 TO 3) where ¡$ =8am 
(e) VAL(e$(1 TO 2) where e$ =593 (1) VALGS(2 TO 3) where j$=Z35 


Comprobación de string de fecha 

Veremos lo útil que nos puede ser VAL, por ejemplo en el caso de fechas intro- 
ducidas en el computador. Es muy normal en computadoras, sabiendo que la mayo- 
ría de los errores de datos provienen de su entrada, utilizar la misma para detectarlos. 
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Ejemplo 5 
Escribe un programa para detectar errores en los tres campos que componen 


el campo de fecha. 


Solución 
El string de fecha d$ tiene tres campos en la forma: 
yy mm dd 
ea Ne Xright 
mid 
left 


Vamos a considerar los años 1980 y 1981 solamente, así: 
VAL(d$(1 TO 2) should have a range of 80-81, 
VAL(d$(3 TO 4)) should have a range of 1-12, 
VAL(d$(5 TO 6)) should have a range of 1-31. 
Este es un proceso complejo y necesitamos decidir los pasos que intervienen 
en el mismo. Estos se muestran en la Figura 3. 


comienzo 


salida 
“error en 
longitud" 


Figura 3 Diagrama mostrando las 
cuatro comprobaciones de yymmdd. 
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El programa es claro porque pasa por cada uno de los controles y si alguno 


de ellos detecta fallo, se emite un mensaje y devuelve control a la línea 20. Si no 


hay 


10 

20 

22 

30 

50 

80 

90 
100 
110 
120 
130 
180 
190 
200 
210 
220 
230 
280 
290 
300 
310 
320 
330 
380 
390 
400 
410 
490 
900 


errores sigue hasta la línea 410 donde se confirma la entrada correcta. 


**date check** 

INPUT "Next date ”;d$ 

PRINT d$ 

IF d$="zz2z" THEN GO TO 900 

IF LEN (d$)=6 THEN GO TO 110 ———————————— Comprobación de longitud 
PRINT "Error in date length” 

GO TO 10 Incluido aquí a fines de de- 


REM A+ELAERA A mostración; normalmente 
PRINT "String length correct” no aparece en una rutina 


IF VAL (d$(1 TO 2) =80 THEN GO TO 210 de comprobación 

IF VAL (d$(1 TO 2) =81 THEN GO TO 210 e 

PRINT "Error in year field” Comprobación de año 
GO TO 10 

REM KARA RARA AR 

PRINT Pe field correct” a 

IF VAL (d$(3 TO 4))<1 THEN GO TO 280 57 
IF VAL (d$(3 TO 4) <=12 THEN GO TO 310 h- SS 
PRINT "Error in month field” 

GO TO 10 


REM Ponsa 
PRINT "Month field correct” -*- Comprobación de mes 

IF VAL (d$(5 TO 6))<1 THEN GO TO 380 E , 
IF VAL (d$(5 TO 6))< =31 THEN GO TO 410 > Comprobación de día 
PRINT "Error in day field” 

GO TO 10 

REM PRO NRO 

PRINT "Date string within check limits” 


GO TO 10 
PRINT "End of date check” 


Programa 15 


Ejecución típica 


RUN 

1234567 

Error in date length 
123456 

String length correct 
Error in year field 
803456 

String length correct 
Year field correct 
Error in month field 
801256 

String length correct 
Year field correct 
month field correct 
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Error in day field 

800131 

String length correct 

Year field correct 

Month field correct, 

Date string within check limits 


ZZ2Z 


End of date check 


XA] 


Programa 15. 


5.8 Comprobación avanzada 
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El siguiente programa produce una tabla de tiempos: 


3 
10 
20 
30 
40 


45 

50 
120 
130 
140 
150 
160 
170 


175 
180 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


370 
380 


REM **Non-validated Input** 

PRINT AT 3,6;”Times Table Program” 

PRINT AT 8,0;”"Which table do you want?” 

PRINT 

PRINT "Type in a number (in range 1-99) then touch 
ENTER key” 

REM **input which table** 

INPUT i 

PRINT 

PRINT ¡;” times table” 

PRINT 

PRINT "How many lines of the table?” 

PRINT 

PRINT "Type in a number (in range 1-20)then touch 
ENTER key” 

REM **input no. of lines** 


INPUT j 

PRINT 

PRINT "Up to line ”;j 

PAUSE 200 

CLS 

PRINT ¡;' times table, up to line ”;j 
PRINT 

REM **printing loop** 

FOR k=1 TOj 

LET k$ =STR$ k 

LEJ l==k* 

LET IS5=STR$ | 

PRINT TAB (6-LEN k$)k;TAB 8,” x ”; 
TAB 13¡;TAB 16;” = "¡TAB (24-LEN 15): 
NEXT k 

sTOP 


Programa 16 


RUN 
7 times table, up to line 12 


1 
14 
El 
28 
35 
42 
49 
56 
63 
70 
77 
84 


Aa 
N020YJ]JDO0DD0aAO0N— 
XX XXAXXXxxxxo>ox>o 
A 
IIA 


Esta es una salida típica. 


(K] Programa 16. 


Ahora, procuremos que el programa vaya mal. Cuando aparezca 'Which table 
do you want”, pulsa ENTER en lugar de entrar un número, después ENTER. El verifi- 
cador sintáctico del computador lanzará un símbolo de error; tú puedes recuperarlo 

“pulsando cualquier tecla numérica, luego ENTER. 

Si ejecutamos el programa, e intentamos introducir datos no numéricos, lo que 
puede suceder por equivocación, el programa se aborta, puesto que la sentencia IN- 
PUT sólo espera datos numéricos. Podemos evitar tales cosas tratando toda la entra- 
da como strings, validarlos, y luego usar VAL para convertir el string en un número. 


50 INPUT ¡$ ñ z 

60 IF i$="" THEN GO To 45 -*———- (Previene de pulsar sólo ENTER) 
70 FOR s=1 TO LEN i$ 

80 IF ¡$(s)<”0" OR ¡$(s)>”9" THEN GO TO 45 

90 NEXT s 

100 LET ¡=VAL ¡$ 


Líneas 70 a 100 prueban cada carácter del string de entrada para asegurar que 
es numérico; si el string entero pasa la prueba, la línea 100 convierte el string válido 
en un número. 

En el programa ejemplo, hay necesidad de limitar el tamaño de la tabla de tiem- 
pos pedida, debido al límite de 32x 32 caracteres de la pantalla. Podemos hacerlo 
empiricamente; ejecutando el programa, podemos descubrir que las tablas en el ran- 
go de 1 a 99 (ver líneas 110 y 115 en la solución modificada abajo) cabrán, y que 
el número dc líneas de la tabla visualizada en la pantalla debería ser entre 1 y 20 
líneas (ver líneas 240 y 245 de la solución modificada). 

Echa una mirada a la versión asegurada del programa de abajo. Siempre que 
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pidas un dato numérico a un programa que va a ser usado por personas no familiari- 
zadas con los sistemas de computación, es deseable asegurar los programas contra 
introducciones de datos inválidas. Habrás visto que los programas en este libro no 
están, en general, protegidos. Esto se debe a que, evidentemente, esto añade alrede- 
dor de un 50% de codificación y puede oscurecer otros puntos de enseñanza. De 
todas formas, es una buena costumbre proteger los programas; todo el software pro- 
fesional está protegido así. 


5 REM **Validated Input** 
10 PRINT AT 3,6;”Times Tables Program” 
20 PRINT AT 8,0;”"Which table do you want?” 
30 PRINT 
40 PRINT "Type in a number (in range 1-99) then touch 
ENTER key” 
45 REM **input which table** 
50 INPUT ¡$ 
55 REM **must touch a number before ENTER** 
60 IF ¡i$=""” THEN GO TO 45 
70 FOR s=1 TO LEN ¡$ 
80 IF ¡$(s)<"”0” OR i¡$5(s)>"9" THEN GO TO 45 
85 REM **only numbers** 
90 NEXT s 
100 LET ¡=VAL ¡$ 
105 REM **only up to 98 times table** 
110 IF ¡>99 THEN GO TO 45 
112 REM **don't want O times table** 
115 IF ¡<1 THEN GO TO 45 
120 PRINT 
130 PRINT i¡;” times table” 
140 PRINT 
150 PRINT "How many lines of the table?” 
160 PRINT 
170 PRINT "Type in a number (in range 1-20) then touch 
ENTER key” 
175 REM **input no. of lines** 
180 INPUT j$ 
190 IF j$=""” THEN, GO TO 175 
200 FOR s=1 TO LEN j$ 
210 IF j¡$(S)<”0” OR j$(s)>”9"” THEN GO TO 175 
220 NEXT s 
230 LET j=VAL j$ 
240 IF j>20 THEN GO TO 175 
245 IF j<1 THEN GO TO 175 
250 PRINT 
260 PRINT "Up to line ”; 
270 PAUSE 200 
280 CLS 
290 PRINT ¡"times table, up to line ”;j 
300>PRINT 
310 REM **printing loop** 
320 FORk=1TO|¡ 
330 LET k$=STR$ k 
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340 LET |=k*i 
350 LET I$=STR$ | 
360 PRINT TAB (6-LEN k$)k;TAB 8;” x "¡TAB 13;; 
TAB 16;" = "¡TAB (24-LEN 1$):1 
370 NEXT k 
380 STOP Programa 16 (modificado) 


A 


Programa 16 (modificado). 


5.9 Impresión: PRINT AT 


Si analizamos el programa 16 veremos un método alternativo de imprimir en 
la pantalla; la sentencia PRINT AT. Este es el formato 


PRINT AT y, x 


donde y es el número de línea, recordando que hay 22 líneas imprimibles en la pan- 
talla, y que el número de líneas se incrementa hacia abajo, desde O arriba a 21 abajo, 
x es el posicionamiento dentro de la línea, que debe resultarte familiar de la instruc- 
ción TAB, variando desde O a la izquierda, hasta 31 a la derecha de la pantalla. 

TAB permite imprimir en la pantalla de la misma forma que en una máquina 
de escribir; para llegar a cualquier punto por debajo de donde está imprimiendo 
debes hacer retorno de carro y el cursor empezar de nuevo a la izquierda. En cambio 
PRINT AT te permite imprimir cualquier carácter en cualquier punto de toda la panta- 
lla, sin tener que usar sentencias PRINT en blanco o movimientos TAB. Mira las lí- 
neas 10, 20, para que te des cuenta de lo útil que llega a ser cuando preparas una 
visualización de pantalla. 

PRINT AT también te ahorra modificación. Si quieres, por ejemplo, sacar una 
rejilla de asteriscos como ésta: 


* * * * * * * xk * * * * k* * * * 
E E 
E 
E 
E RR RR RR 
A E 
E 


podrías usar cualquiera de los siguientes programas, 17a Ó 17b, para conseguir este 
efecto. La versión PRINT AT, 17b, es notablemente más corta. 
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10 REM **PRINT** 

15 FOR j¡=1 TO 21 STEP 3 

20 FOR ¡=1 TO 31 STEP 2 

30 PRINT** * 

35 NEXT i 

40 PRINT 

45 PRINT 

50 PRINT 

60 NEXT j Programa l7a Rejilla: PRINT 


10 REM **PRINT AT** 


15 FOR /=1 TO 21 STEP 3 

20 FOR i=1 TO 31 STEP 2 

30 PRINTAT j¡/0*" Ñ 

35 NEXT ¡ Programa 17b Rejilla: PRINT AT 
40 NEXT ¡ 


Objetivos de la Unidad 5 


Comprueba si eres capaz de escribir programas simples: 

Usando LEN (a$) 

Usando LET c(i)=c(i)+1 para contar frecuencias 

Imprimir un diagrama de frecuencias O 
Usando TAB para imprimir en columnas O 


Usando TAB para imprimir una tabla de frecuencia con encabezamiento 
y escala 


Usando xSía TO b) para actuar como LEFTS(x$,'), RIGHTS(x$,1) y MIDS$(x5,ij) 
Usando VAL(aS) 
Protegiendo programas de INPUT's inválidos a 
Usando PRINT AT 

Respuestas a PF y Ejercicios 

PF 1 
(a) 3; (b) 1; (c) 2 (no 72 — LEN cuenta el número de caracteres); 


(d) 7 (LEN cuenta los caracteres sin importarle si son números, letras o espacios). 
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PF 2 
La contestación correcta: 


Word length Count Total 
1 1 l 
2 HT 5 
3 1111 4 
4 JHt 1 6 
5 1HT 1111 9 
6 0 
7 1 1 
8 111 3 
9 1 1 
10 0 
11 0 
12 1 1 
13 0 
14 0 
15 0 


PF 3 
(a) c(4)=1 (Not 3 or 4! c(4) has counted the number of 3”s input.) 
(b) c(10)=2 
(c) c(2)=4 
(d) c(1)=3 


Ejercicio 1 
La solución aparece en el siguiente texto. 


PF 4 
4 
O! 
bid! 
MOOIIOIOROK 


do 


10 PRINT "COL 1”:TAB 9;"COL 2";TAB 19;"COL 3" 
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PF 6 


10 INPUT a 
20 INPUT b 
30 INPUT e 
40 PRINT TAB(a);”heading":TAB(b);"heading'":TAB(c);"heading” 


Programa 18 


Ejercicio 2 
El programa te pide que entres las vocales una a una, y sus frecuencias. 


10 REM **Frequency Distribution** 

15 REM **preparation Picture** 

20 REM **Frequency-List is f(k)** 

25 DIM V$(5) 

28 DIM (5) 

30 FORk=1TO 5 

35 PRINT "Vowel No. "ik" ": 

36 INPUT v$(k) 

38 PRINT v$(k), 

40 PRINT "Frequency "¡k;" ”: 

43 INPUT f(k) 

46 PRINT f(k) 

50 NEXT k 

90 REM RKRARAAARARRARARA RARA 

100 REM **don't add —9999 to list** 

110 LET n=k—1 

120 REM **errrrernrnrana rana ns 
200 REM **Print Routine** 
210 PRINT 
212 PRINT "Vowel”;TAB 8;”.req";TAB 18;"Tally" 
214 PRINT "-- Ñ 
220 FORx=1 TON 
222 PRINT TAB 2v8(x);TAB 7;” “¡TAB 10:f(x);TAB 14,"1",; 

TAB 16; 
230 FOR y=1 TO f(x) 
240 PRINT "*”; 
250 NEXT y 
260 PRINT 
280 NEXT x 
290 PRINT ”....Scale.... ¡TAB 15/0....5....0....5." 
300 REM Pee Roa nooo o 
Programa 19 


RUN 

Vowel No. 1a Frequency 1 9 
Vowel No. 2 e Frequency 2 16 
Vowel No. 31 Frequency 3 10 
Vowel No. 4 o Frequency 4 10 
Vowel No. 5 u Frequency 5 6 
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Vowel Freq Tally 
a OS 
e 16 FO A 
i 10 ARA AR 
o 10 OA A 
ú 6 2. emo 
cal. o Oi e e Des 


PF 7 


[K] Programa 19. 


(a) 2b3 (b) la2b (c) b 


Observa que en el manejo de strings, todos los caracteres se tratan de la misma 


forma. No importa sean números, letras o espacios. 


Ejercicio 3 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
190 
200 
210 
220 
230 
9999 


RUN 
a 


u 
e 
1 

lo] 


REM **is left-most character a vowel?** 
INPUT "Next word ";¡w$ 

IF wS="zzzz2" THEN GO TO 9999 

LET 158 =wS$(1 TO 1) 

IF I$="a” THEN GO TO 200 

IF 18="e"” THEN GO TO 200 

IF 18="”i" THEN GO TO 200 
IF 18="0” THEN GO TO 200 
IF I$="u” THEN GO TO 200 


GO TO 10 

REM pana 

PRINT 

PRINT 15,w$ 

GO TO-10 

REM o 

sTOP 
albatross 
unicorn 
eagle 
insect 
ostrich 


K] Programa 20. 


Programa 20 
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Ejercicio 4 


10 REM **Slicing variable strings** 
20 INPUT "Enter 6-character string”;x$ 
30 PRINT TAB 10;”1234567890” 

40 FORi=1TO 6 

50 LET a$=x$(6-¡ +1 TO 6) 

60 PRINT ¡;TAB (16-1);a$ 


70 NEXT i 
80 STOP Programa 21 
RUN 
1234567890 
1 f 
2 et 
2 def 
4 cdef 
5 bcdef 
6 abcdef 


K] Programa 21. 


PF 8 


10 REM **London Phome Nos.** 

20 INPUT "Next telephone number ”;n$ 

30 PRINT n$ 

40 LET a$=n$(4 TO 6) 

50 PRINT a$ 

60 GO TO 10 Programa 22 


[K] Programa 22. 
PF 9 


(a) 54; (b) no se puede evaluar; (d) —132; (e) 59; (f) 8; (2) no se puede evaluar; 
(h) 3; (1) no se puede evaluar; (3) 35. 
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6.1 Números aleatorios 


La función de programación que nos permite inyectar un cierto sentido de di- 
versión es la que genera números aleatorios. Esta función es el corazón de muchos 
juegos y programas de simulación, que están disponibles en los microordenadores. 

Te encontrarás números aleatorios cuando juegues a juegos tales como echar 
la moneda al aire, o lanzar un dado, o sacar números de un sombrero. Estos juegos 
domésticos se han llegado a institucionalizar en casinos, bingos y otros lugares. Aun- 
que todos tenemos una idea intuitiva de lo que entendemos por secuencia de núme- 
ros aleatorios, es difícil definir la idea con claridad. Echemos un vistazo a algunas 
secuencias numéricas para intentar clarificar esta idea. 

He aquí tres “experimentos pensados”; cada uno implica el lanzamiento de un 
dado de seis caras, quince veces. Imagínate que en el primer experimento los valores 
correspondientes fueron los mostrados por la secuencia A de la figura 1. El segundo 
experimento generó los números de la secuencia B y el tercero nos dio los números 
de la secuencia C. 


Secuencia A 
5,1,2,4,6,3,2,1,6,3,5,4,3,4,2 


Secuencia B 
6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 


Secuencia C 
1,2,3,4,5,6,1,2,3,4,5,6,1,2,3 


Figura 1 ¿Secuencias aleatorias? 


La mayoría de nosotros aceptaría feliz que la secuencia A representa una se- 
cuencia de números generada por el lanzamiento de un dado quince veces. La se- 
cuencia no parece tener modelo predeterminado y no nos sorprendemos de la apari- 
ción de cualquiera de las subsecuencias dentro de la secuencia principal. Por contras- 
te, sin embargo, la secuencia B es irrazonable. Nadie esperaría este resultado de quince 
lanzamientos y sospecharíamos de que los dados (en este caso el dado) están carga- 
dos. Intuitivamente nos preparamos a aceptar la secuencia A como obtenida “por 
suerte”, pero no nos prepararíamos para aceptar esto en la secuencia B. 

Otra característica de los números aleatorios que hemos aprendido por expe- 
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riencia es que, en largas secuencias, las ocurrencias “sospechosas” se pasan por alto. 
Lo que queremos decir es que, después de cien tiradas, por ejemplo, esperaríamos 
un promedio de dieciséis unos, dieciséis doses, dieciséis treses, y así sucesivamente. 
En otras palabras, sobre una secuencia larga esperamos que se cumpla la “ley del 
azar”. Si consideramos la secuencia C con su cadencia *... 6,1,2,3,4,5,6,1 ...” conti- 
nuada en cien tiradas, se cumplirá el promedio. Pero, una vez más esta secuencia 
no es intuitivamente aceptable como aleatoria ya que no la esperamos a lo largo 
de cien veces y sólo por suerte. 

Estos conceptos de “promedio estadístico” sobre una secuencia de lanzamientos 
y de las cadencias razonables de números se adquieren intuitivamente de los juegos 
de azar. Existen técnicas estadísticas para comprobar estas dos características de la 
secuencia de números aleatorios, pero no las vamos a tratar aquí. 

Una computadora es una máquina limitada. No debes sorprenderte, pues, de 
saber que características muy especiales hayan de estar programadas dentro de ella 
para conseguir números aleatorios. Para nuestro uso, asumiremos que ha sido alma- 
cenada una tabla de números aleatorios dentro de la máquina. La secuencia de nú- 
meros es muy larga y pasaría mucho tiempo antes de que se repitiese la secuencia. 
Para conseguir la generación de números aleatorios diferentes de un programa a otro, 
todo lo que ha de hacer la máquina es leer la secuencia en diferentes puntos. 


6.2 La función RND 


Si ejecutas el siguiente programa verás el efecto de RND. 


10 REM **Generate ten random numbers** 
20 FORi=1 TO 10 
30 LET b=RND 
40 PRINT b 
50 NEXT i¡ Programa 1 RND 


Una ejecución típica produce números como: 


0.98448181 
0.83615112 
0.71151733 
0.36412048 
0.30975342 
0.23228455 
0.42221069 
0.66645813 
0.98474121 
0.85560608 


KI Programa 1. 
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Ciertamente, parecen números aleatorios y, si pulsas RUN, obtendrás una rela- 
ción completamente diferente. Actualmente, el computador tiene una lista de 65536 
retorcidos números y RND se zambulle en esa lista y lee tantos como tú pidas. 

El hecho de que estén disponibles números aleatorios en una secuencia fija sig- 
nifica que podemos repetir una secuencia de números aleatorios si queremos. En 
el Spectrum lo hacemos con la tecla T (RAND) y aparece en la pantalla la palabra 
RANDOMIZE. Por ejemplo, RANDOMIZE 25 comenzará a leer números de la secuencia 
a partir de la posición 25. Trata de seguir el programa para convencerte de que RAN- 
DOMIZE fija el punto de partida de la secuencia. 


10 REM **Fixed sequences of random numbers** 

20 RANDOMIZE 7 

30 REM **Start of loop** 

40 FOR i¡=1 TO 10 

50 LET b=RND 

60 PRINT b 

70 NEXT i Programa 2 RAND 


[K] Programa 2. Ejecútalo varias veces y observa las secuencias: 


.0091400146 
0.68663025 
0.49761963 
0.32203674 
0.15351868 
0.51486206 
0.61520386 
0.14071655 
0.55471802 
0.60435486 


RND 
Lo que demuestra la investigación anterior es que 


RAND 


dará números aleatorios dentro del rango 0-1 con 0 incluido pero 1 excluido. 
¿Cómo podemos extender el rango para obtener otros números aleatorios? Sim- 
plemente multiplicando RAND por otro número. Así: 


RND da un número aleatorio en el rango de 0-1; 
6*RND da un número aleatorio en el rango de 0-6; y 
52*RND da un número aleatorio en el rango de 0-52; 
etc. 


Piensa en RND como un “factor de conversión” que se cambia a voluntad. El 
siguiente programa ilustra esta idea. 
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10 REM **RND as a conversion factor** 

20 PRINT ” ¡";TAB 8;"1*RND”;:TAB 20;"6*RND” 

30 PRINT "¡TAB 8; "--—-— "TAB 207%” 

40 REM **Number generation llop** 

50 FOR ¡=1 TO 10 

60 LET b=RND 

70 LET c=6*b 

80 PRINT ¡;TAB 8;b;TAB 20;c 

90 NEXT ¡ 

100 STOP Programa 3 RND como factor de conversión 


Ejecuta con la línea 70 como LET c=6*b 


RUN 
¡ 1*RND 6*RND 
1 0.62315369 3.7389221 
2 0.73695374 4.4217224 
3 0.27182007 1.6309204 
4 0.3873291 2.3239746 
5 050369263 0.30221558 
6 0.77877808 4.6726685 
7 0.40859985 2.4515991 
8 0.6456604 3.8739624 
9 0.42492676 2.5495605 
10 0.87016296 5.2209778 


Ejecuta con la línea 70 como LET e =52*b más cambio de encabezamiento en 
línea 20: 
10 REM **RAND as a conversion factor** 
20 PRINT ” ¡";TAB 8;”1*RND”;TAB 20;"52*RND” 
30 PRINT "¡TAB 8;"-----—"TAB 20;"---.--” 
40 REM **Number generation loop** 
50 FOR i=1 TO 10 
60 LET b=RND 
70 LET c=52*b 
80 PRINT ¡;TAB 8;b;TAB 20;c 


90 NEXT i 
100 STOP 
RUN 
¡ 1*RND 52*RND 
1 0.65000916 33.800476 
2 0.75108337 39.056335 
3. 0.33152771 17.239441 
4 0.86534119 44.997742 
5 0.90074158 46.838562 
6 0.5557251 28.897705 
7 0.67988586 35.354065 
8 0.99180603 51.573914 
9 0.38545227 20.043518 
10 0.90962219 47.300354 


XA] 


[K] Programa 3. 
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PF 1 
Escribe un programa para imprimir 6 números aleatorios en el rango de 0 a 
5.999999. 


La función RND +1 
Si miras de nuevo la salida del Programa 3 en la ejecución con 6*RND, los nú- 
meros eran: 


3.7389221 
4.4217224 
1.6309204 
2.3239746 
0.30221558 
4.6726685 
2.4515991 
3.8739624 
2.5495605 
5.2209778 


Mira ahora los números antes del punto decimal (destacados en color). Son: 


3,4,1,2,0,4,2,3,2,5 
esto es, miembros del conjunto 


(0,1,2,3,4,5) 


Pero, si fuésemos lanzando dados, generaríamos miembros del conjunto 
(1,2,3,4,5,6). Todo lo que hemos de hacer es añadir 1 a cada miembro del primer 
conjunto para obtener el segundo. 

Ahora, en juegos, frecuentemente queremos lanzar un dado (sacando 1,2,3,4,5,6) 
O usar un mazo de cartas (52) por lo que nos interesan las funciones 


G6ORND+1 y 52*RND4+1 
El siguiente programa nos permite explorar 6*RND. 


10 REM **RND+1 as a conversion factor** 

20 PRINT ” ¡";TAB 8,” 1*RND”;TAB 20;”"6*RND+1” 
30 PRINT *—=="TAB 8/"-—=-—- “TAB 207====" 
40 REM **Number generation loop** 

50 FOR i=1 TO 10 

60 LET b=RND 

78 1LETe=6"b+1 

80 REM **Note the +1 ** 

90 PRINT ¡;TAB 8:b;TAB 20;c 

100 NEXT i 


110 STOP 
Programa 4 6*RND+1 
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po) 
c 
Z 


i 1*RND 6*RND +1 
1 0.78868103 5.7320862 
2 0.15130615 1.9078369 
3 0.34892273 3.0935364 
4 0.158993713 2.0196228 
5 0.74623108 *5.4773865 
6 0.95762085 6.8057251 
7 0.57159424 4.4295654 
8 0.87005615 6.2203369 
9 0.25434875 2.5260925 
10 .07699585 1.4619751 


K] Programa 4. 


La función INT 

Si miras ahora las columnas de la ejecución del Programa 4 destacadas en color, 
verás que hemos generado los números aleatorios que queríamos. La columna 3 tie- 
ne los números del 1 al 6; si cambias la línea 70 a LET c=52*b+1, alteras el titulo 
de columna en línea 20, y ejecutas el Programa 4 de nuevo, verás que la columna 3 
tiene los números del 1 al 52. 

Pero ¡cuánta basura queda a la derecha del punto decimal! ¿Qué hacemos con 
ella? Pues tenemos una función que nos libera de este problema: INT. 

El efecto de INT(x) es que nos da la parte entera del número x. Esto es, el entero 
más grande que no sea mayor que x. El efecto de INT es recortar el número al inme- 
diato más bajo. 

INT(5.6) 
INT(3.9) 
INT(=3.2 
INT(2) = 2 

Si te sorprende INT(—3.2) = —4, observa la línea numérica y recuerda que INT 
siempre recorta al inmediato más bajo. 


5 
3 
= —4 


2 00 


«— 2 «—. 
ES 39 EXA 
E E o O! 0 1 2 3 4 5 6 7 
PF 2 

Cuáles son los valores de lo siguiente: 

(a) INT(4.5) 

(b) INT(9.1) 

(c) INT(22.5) 

(d) INT(—0.29) 

(e) INT(1.01; 
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Ahora, con INT, podemos al fin generar números enteros del 1 al 6 y del 1 al 
52 para usar con los dados o cartas. Todo lo que necesitamos es 


INT(S*RND + 1) 
y INT(52*RND + 1) 


El siguiente programa imprime los valores de esas dos funciones: 


10 REM **The INT function** 
20 PRINT ” ¡”¡TAB 5;"RND*1"¡TAB 12;"INT(6*-——-_"¡TAB 22; 


"INT(S2*--" 
30 PRINT TAB 12;”--—RND +1) TAB 22;"---RND + 1)" 
40: PRINT "TAB 5 “TAB 12%" TAB 22 
50 PRINT 


60 REM **Start of loop** 

70 FOR i=1 TO 10 

80 LET b=RND 

90 LET c=INT (6*b+ 1) 

100 LET d=INT (52*b + 1) 

110 PRINT ¡¡;TAB 4¡b;TAB 18;c,;TAB 25;d 


120 NEXT ¡ 
130 STOP Programa 5 INT para dar números enteros 
RUN 

Í RND*1 INT(6*—-—- INT(S2*.... 

——-RND + 1) AND 1) 

1 0.48942566 3 26 

2 0.70750427 5 37 

3 .063140869 1 4 

4 0.7366333 5 39 

5 0.24778748 2 13 

6 0.58491516 4 31 

7 0.86911011 6 46 

8 0.18339539 2 10 

9 0.75558472 5 40 

10 0.66912842 5 35 


[K] Programa 5. 


6.3 Terminación del tema 
El siguiente programa simula la suerte de 100 lanzamientos de dado: 
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K 


2 


4 


Programa 6. 


5 
3 


REM 
REM 
REM 
FOR 


**100 tosses of a die** 
**j loop to form each row** 


**¡i loop to determine number of rows** 


i=1 TO 10 
FOR ¡=1 TO 10 
LET x=INT (6*RND + 1) 
PRINT x;” 


NEXT j 
PRINT 
PRINT 
NEXT i 
sToOP 


1 


6 


3 
6 


Programa 6. Suerte de dado 


Para asegurarnos de que has entendido la función INT, contesta a las siguientes 
cuestiones. 


PF 3 


El programa: 


imprime 10 pares de números. ¿Cuáles son? 


10 
20 
30 
40 
50 
60 


REM **SAQ** 

FOR x= —3.8 TO —1.8 STEP .2 
LET y=INT x 

PRINT x.y 


NEXT x 
sToP 


Programa 7 
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PF 4 
El programa: 
10 REM **SAQ** 
20 FOR x=1.8 TO 3.4 STEP .2 
30 LET y= INT x 
40 PRINT xy 
50 NEXT x 
60 STOP Programa 8 


imprime 9 pares de números. ¿Cuáles son? 


6.4 Dos ejemplos 


Esta sección se compone de dos largos ejemplos. Te proponemos que intentes 
resolverlos como ejercicios primero y luego compares tu solución con la nuestra. 


Ejemplo 1 
Escribe un programa para simular el lanzamiento de una moneda 100 veces. 
Cuenta e imprime el número de veces que cae cara y cruz. 


Solución 

La cuestión se basa en la generación de un número aleatorio que produce un 
1 ó un 2. Usaremos l para representar cruz y 2 para representar cara. Bajo esta 
premisa, un algoritmo descriptivo para la solución al problema es: 


1. Empezar. 

2. Poner a ceros totales de caras y cruces. 

3. Empezar el bucle de cuenta. 

4. Generar aleatoriamente los valores 1 y 2. 

5. Siel número random es 2 salta a la sentencia 8, en caso contrario continúa 
en la sentencia 6. 

6. Suma l a total de cruces. 

7. Salta a la sentencia 9. 

8. Suma l a total de caras. 

9. Suma 1 a contador de bucles. 

O. Si contador de bucles <=100 salta a la sentencia 4, en caso contrario 
continúa en la sentencia 11. 

11. Imprime totales de caras y cruces. 

12. Parar. 


Figura 2 Solución descriptiva de lanzamiento de moneda. 
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Alternativamente, tú puedes preferir una descripción diagramada del problema: 


comienzo 


30-40 GLOSARIO 

H...contador de “caras” 

T ...contador de “cruces” 

I ...contador de “100 tiradas” 
so Y ...contiene cada número 


aleatorio generado. 


Figura 3 Diagrama de lanzamiento de moneda. 


Y, finalmente, el programa: 


REM **Toss a coin 100 times** 
PRINT "Results from tossing a coin a hundred times:” 
PRINT 

LET h=0 

REM **heads count** 

LET =D 

REM **tails count** 

LEFI=1 

REM **number of tosses** 

LET y=INT (2*RND + 1) 

IF y=2 THEN GO TO 160 

REM **2 means a head** 

LET t=1+1 

REM **not a head (= a tail)** 
GO TO 180 
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160 REM **ada 1 to head count** 

170 LET h=h+1 

180 REM **add 1 to no. of tosses** 

190 LET i=i+1 

200 REM **repeat process if less than 100 tosses so far** 

210 IF ¡i<=100 .THEN GO TO 90 

220 PRINT "Heads” “Tails” 

230 PRINT h,t 

240 STOP Programa 9. Lanzamiento de moneda 


Tres típicas ejecuciones: 


Resultado del lanzamiento de moneda 100 veces: 


Caras Cruces 

49 51 

Resultado del lanzamiento de moneda 100 veces: 
Caras Cruces 

45 55 

Resultado del lanzamiento de moneda 100 veces: 
Caras Cruces 

52 + 48 


Programa 9. 


Ejemplo 2 

Escribe un programa para simular el lanzamiento de dos monedas 100 veces. 
Cuenta e imprime el número de veces que el resultado de este experimento imagina- 
rio sea: 
cara-cara (HH), cruz-cruz (TT), y cara-cruz o cruz-cara (HT o TH). 


Solución 

Usamos las mismas reglas de puntuación: 1 para cruz y 2 para cara, pero ahora 
vamos a lanzar dos monedas. Almacenamos la puntuación de la primera moneda 
en cl y la de la segunda en c2. Después sumanos cl y c2 para dar la puntuación 
total del lanzamiento: 


s=cl+c2 
s puede ser 2, 3,6 4: 


Resultado 


TT 
TH o HT 
HH 
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Luego contamos cuántos 2's salen, cuántos 3'”s y cuántos 4's. 


Contador para 2's 12 
Contador para 3”s ml (m para mixto de caras y cruces) 
Contador para 4s h2 


El diagrama del problema se ve más abajo, y el programa es: 


10 REM **Todd 2 coins 100 times** 
20 PRINT "Results from tossing two coins a hundred times:” 
30 PRINT 

40 LET h2=0 

50 REM **"both heads” count** 

60 LET t2=0 

70 REM **”both tails” count 

80 LET m1i=0 

90 REM **”i head, 1 tail” count** 
95 REM **Start of processing loop** 
100 FOR ¡=1 TO 100 

110 LET c1=INT (2*RND +1) 

120 REM **toss first coin** 

130 LET c2=INT (2*RND + 1) 

140 REM **toss second coin** 

150 LET s=c1+c2 

160 REM **sum of coin scores** 

170 IF s=4 THEN GO TO 280 

180 REM **two tails** 

190 IF s=2 THEN GO TO 240 
200 REM *“*two heads** 
210 LET mi=m1+1 
220 REM **one head, one tail** 
230 GO TO 300 
240 REM **increase ”2 head” count** 
250 LET t2=1t2+1 
260 REM **exit the loop** 
270 GO TO 300 
280 REM **increase ”2 tail” count** 
290 LET h2=h2+1 
300 REM **end of loop** 
310 NEXT ¡ 
320 REM **output results** 
330 PRINT "TT";¡TAB 10;"HT";TAB 20;"HH” 
340 PRINT t2,TAB 10;¡m1;TAB 20:h2 
350 STOP 


Programa 10. Lanzamiento de dos monedas 
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GLOSARIO DE SIMBOLOS 


comienzo 


h2  ... total para HH 


(2... total para TT 
mil... total para HT ó TH 

20-40 cl... aleatorio 1 ó 2 para moneda 1 
ce2  ... aleatorio 1 Ó 2 para moneda 2 
Ss ... Suma de puntuación 


60,170 


180,190 


70,80 
salida 
h2, t2, mi 


c18£.c2 
=AND(1 or 2) 


parada 


160 


h2.—h2+1 


Figura 4 Diagrama para lanzamiento de dos monedas. 
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He aquí algunas ejecuciones típicas: 


RUN 
Resultado de lanzar dos monedas 100 veces: 
HT HH 
28 49 23 
Resultado de lanzar dos monedas 100 veces: 
HH 
23 54 23 
Resultado de lanzar dos monedas 100 veces: 
HH 
31 51 18 
Resultado de lanzar dos monedas 100 veces: 
iD HT HA 
24 52 24 


K] Programa 10. 


6.5 Anotación de puntos 


Has podido observar que hemos venido usando algunos nombres de variables, 
tales como t2, h2, y ml. Quizás has estado pensando “¿Para qué sirven las listas? 
¿No podían haber utilizado mejor las tablas de frecuencia?”. Efectivamente, así no 
vamos a disponer una lista de puntuación s(i) para el lanzamiento de moneda. Diremos: 


Si la puntuación es 2, sumar 1 al número en s(2) 

Si la puntuación es 3, sumar l al número en s(3) 

Si la puntuación es 4, sumar 1 al número en s(4) 
generalmente 

Si la puntuación es s, sumar 1 al número en s(s) 
Aplicación para lanzamiento de dos monedas 


Si volvemos al Ejemplo 2, podemos reutilizar el formato general, añadiendo 
nuestro nuevo sistema de anotación: 


160 LET s(s)= s(s) + 1 
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El programa se convierte en: 


10 REM **Toss 2 coins 100 times** 

20 PRINT "Results from tossing two coins a hundred times:” 
30 PRINT 

35 DIM s(4) 

40 LET s(4)=0 

50 REM **"both heads” count** 

60 LET s(2)=0 

70 REM **”"both tails” count** 

80 LET s(3)=0 j 

90 REM **"1 head, 1 tail” count** 

95 REM **Start of processing loop** 

100 FOR i=1 TO 100 

110 LET c1= INT (2*RND +1) 

120 REM **toss first coin** 

130 LET c2= INT (2*AND +1) 

140 REM **toss second coin** 

150 LET s=c1+c2 

160 LET s(s)=s(s) + 1 
300 REM **end of loop** 

310 NEXT i 
320 REM **output results** 

330 PRINT "TT";TAB 10;"HT";¡TAB 20;”HH” 
340 PRINT s(2);TAB 10;s(3);TAB 20;s(4) 
350 STOP Programa 11 


Observa la adición de 35 DIM s(4). 


RUN (algunos resultados típicos): 
Resultado de lanzar dos monedas 100 veces: 


Ad HT HH 
24 53 23 
Resultado de lanzar dos monedas 100 veces: 
TT HT HH 
26 44 28 
Resultado de lanzar dos monedas 100 veces: 
TT HT HH 
31 41 28 
Resultado de lanzar dos monedas 100 veces: 
TT HT HH 
26 44 30 


[K] Programa 11. 


Lista de puntuación para dado 
La lista de puntuación para lanzar dado sería: 


s(1),5(2),s(3B),...,s(6); 
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y para lanzar dos dados: 
s(2),5(3),5(4),...,s(12). 


Ejercicio 1 
Escribe un programa paa simular el lanzamiento de un dado 100 veces. Cuenta 
y muestra en la pantalla el número de veces de cada puntuación. 


Ejercicio 2 
Modifica el programa escrito en el Ejercicio 1 para simular el lanzamiento de 
dos dados 100 veces. 


Ejercicio 3 
Escribe un programa para mostrar por pantalla el dato obtenido en el Ejercicio 2, 
en forma de diagrama de frecuencia. 


6.6 Concatenación 


En la Unidad $5 hemos tratado bastantes problemas de manejo de strings y aho- 
ra queremos dedicar un poco de tiempo para encadenarlos. El Programa 12 nos mues- 
tra lo que ocurre. 


10 REM **Concatenation** 
20 INPUT "First string” ;a$ 
30 PRINT a$ 

40 INPUT "Second string”;b$ 
50 PRINT b$ 

60 PRINT a$+b$ 


70 STOP ua 
Programa 12. Concatenación 


RUN 

micro 
computer 
microcomputer 


RUN 

concate 
nation 
concatenation 
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PF 5 

Escribe un programa para introducir una palabra y sacar su plural, asumiendo 
que todas las palabras sólo necesitan la adición de una s para formarlo. 

El Programa 13 muestra cómo podemos usar la concatenación para construir 
un string a partir de una lista de símbolos. Hemos almacenado las letras en a$ en 
la línea 30; en el bucle 70-100 añadimos una nueva letra al string en cada vuelta 
del bucle. 


10 REM **More concatenation** 

20 REM **set up directory** 

30 LET a$= "abcaefghij” 

40 REM *+terrrrnarara narra 

50 LET có5="" 

60 REM **empty c$** 
70 FORj=1TO 10 

80 LET c$=cC$ + as(j) 


90 PRINT j,c$ 
100 NEXT j 
110 STOP Programa 13 
RUN 
1 a 
2 ab 
3 abc 
4 abcd 
5 abcde 
6 abcdef 
7 abcdefg 
8 abcaefgh 
9 abcdeighi 
10 abcdetfghij 


[K] Programa 13. 


Este proceso es de gran valor en el análisis de texto, pero lo usaremos para 
códigos y juegos. 


6.7 STRS 


Esta función tiene el efecto contrario de la función VAL. La función VAL da el 
valor numérico de un string, y la función STR$ convierte un número en un string 
de caracteres. 


STR$() da la representación en string dfel valor de x. 


130 


Impresión STR$ 


STR$ n se parece mucho a n en sí misma, como demuestra el siguiente programa: 
10 REM **the STR$ function** 
20 INPUT "Next number?";n 
30 PRINT n 
40 PRINT "012345678901234567890” 
50 PRINT n,STR$ n 
60 STOP 
Programa 14 
RUN 
17 
012345678901234567890 
17 17 
RUN 
-17 
012345678901234567890 
17 17 
RUN 
99 34 
012345678901234567890 
99.34 99 34 
RUN 
99 34 
012345678901234567890 
-99 34 -99 34 


[K] Programa 14. 


Sin embargo, en cada ejecución la segunda figura (coloreada) es tratada como 


string. 


En el próximo programa (Programa 15) haremos uso del hecho de que STR$ 


8, digamos, 


a su valor) 


10 
20 
30 
40 
50 
60 
70 
80 


trata 8 como un string y por eso añadimos el carácter 8 (como opuesto 
al final de un string. 


REM **more STR$** 
LETES=""" 
REM **empty c$** 
FOR ¡=1 TO 10 
LET c$=cC$+STR$ j 
PRINT j,c$ 
NEXT ¡ 
STOP 
Programa 15 
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Salida en algunos microordenadores: 


RUN 

1 1 

2 LE 

3 123 

4 1234 

5 12345 

6 1234568 

7 1:23.4 53506 7 

8 12345678 

9 12345667808 

10 123456780910 
Salida en Spectrum ZX: 

RUN 

1 1 

2 12 

3 123 

4 1234 

5 12345 

6 123456 

7 1234567 

8 12345678 

9 123456789 

10 12345678910 


De este modo, en el Spectrum podemos unir los caracteres en posiciones adya- 
centes. 


Programa 15. 


Ejercicio 4 

Escribe un programa para introducir una palabra por el teclado, codificar cada 
letra en un número, y sacar el código como una secuencia de números. 

Si necesitas ayuda: construye una lista como la del Programa 15, pero para el 
alfabeto completo. Recuerda la sentencia DIM . Toma cada letra de la palabra y com- 
párala coan los elementos de la lista. Cuando la encuentres en la lista, suma ese 
índice, en formato string, al string de código. 


Ejercicio 5 

Escribe un programa para generar 20 palabras aleatorias de 3 letras. (Es intere- 
sante ver cuántas veces tienes que ejecutar este programa para generar una palabra 
con sentido.) 
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Objetivos de la Unidad 6 


Cuando hayas acabado esta unidad, comprueba que eres capaz de: 
Usar RAND para generar números aleatorios entre O y 1 


Usar INT y RND para generar números aleatorios enteros entre O y un 


entero dado n O 
Simular lanzamientos de moneda (una) D 
Simular lanzamientos de moneda (dos) D 
Simular lanzamientos de un dado O 
Simular lanzamientos de dos dados o 


Usar listas de puntuación mn 
Concatenar strings D 
Usar STR$(x) a 


Respuestas a PF y Ejercicios 


PF 1 

10 FORi=1 TO 6 

20 LET n=6*RND 

30 PRINT n 

40 NEXT i 

50 STOP Programa 16 
PF 2 


(a) 4 (0) 9 (ce) —3; (d) —1; (e) 1. 


PF 3 

RUN 

—3.8 —4 
—3.6 —4 
—3.4 —4 
—3.2 E. 
—3 —3 
—2.8 —3 
—2.6 —3 
—2.4 —3 
—2.2 —3 
—2 —2 
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PE 4 


WONNNNN==J 
m D0AmnN vos 


Ejercicio 1 
Algoritmo descriptivo para lanzar un dado 
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Dina hh Yin — 


WUNNNNN wr» — 


Empezar. 


Poner a cero los 6 totales de puntuación. 


Empezar el bucle de 100 lanzamientos. 


Generar una puntuación aleatoria del juego (1,2,3,4,5,6). 
Incrementar el total con esta puntuación. 


Si contador de bucle = 100 salta a la sentencia 4, en caso contrario con- 
tinuar en la sentencia 7. 
Sacar la puntuación y el total para cada valor de puntuación. 
Parar. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


REM **Throw one die 100 times** 


PRINT "Results from throwing a die a hundred times:” 


PRINT 

REM **Space for score counters** 
DIM s(6) 

REM **Zeroise counters** 
FOR j=1 TO 6 

LET s(j)=0 

NEXT ¡ 

REM **generation loop* * 
FOR i=1 TO 100 

LET s=INT (6*RND + 1) 
LET s(s)= s(s) + 1 

REM **end of loop** 

NEXT ¡ 

REM **output 
PRINT 

PRINT "Score”,”Frequency” 
REM **display loop** 

FOR k=1 TO 6 

PRINT k,s(k) 

NEXT k 

SsTOP 


results** 


Programa 17 


He aquí cuatro ejecuciones típicas: 


Resultados de lanzar un dado 100 veces: 
Puntuación Frecuencia 


17 
14 
14 
16 
20 
19 


Resultados de lanzar un dado 100 veces: 
Puntuación Frecuencia 


DOONOAO0ON — 


12 
12 
17 
18 
17 
24 


Resultados de lanzar un dado 100 veces: 
Puntuación Frecuencia 


DONOBAON — 


15 
18 
TE 
18 
14 
18 


Resultados de lanzar un dado 100 veces: 
Puntuación Frecuencia 


DOMAGON—= 


Ejercicio 2 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


12 
22 
17 
14 
17 
18 


[K] Programa 17. 


REM **Throw two dice 100 times** 
PRINT "Results from throwing two dice a hundred times:” 
PRINT 

REM **Space for score counters** 
DIM s(15) 

REM **Zeroise counters** 

FOR ¡=2 TO 12 

LET s(j)=0 

NEXT j 

REM **generation loop** 

FOR ¡=1 TO 100 
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120 LET s1=INT (6*RND + 1; 
125 LET s2=INT (6*RND + 1) 
130 LET s=81+s82 

135 LET s(s) =s(s) + 1 

140 REM **end of loop** 
150 NEXT ¡ 

160 REM **output results** 
170 PRINT 

180 PRINT "Score”,”Frequency” 
190 REM **display loop** 
200 FOR k=2 TO 12 

210 PRINT k,s(k) 


220 NEXT k 

230 STOP Programa 18 
RUN 

Results from throwing two dice a hundred times: 
Puntuación Frecuencia 

2 0 

3 4 

4 5 

5 y 

6 19 

7 19 

8 13 

9 13 

10 8 

11 5 

12 7 


[K] Programa 18. 


¿Qué pasa con 1.000 lanzamientos? Bien, cambia 100 por 1.000 en la línea 10, 


cien por mil en la línea 20, y línea 110 A FOR ¡=1TO 1000, y obtendrás una ejecu- 
ción como ésta: 


186 


RUN 

Resultados de lanzar dos dados mil veces: 
Puntuación Frecuencia 
2 25 

3 68 

4 88 

5 98 

6 147 

7 172 

8 128 

9 111 

10 89 

11 50 

12 24 


Ejercicio 3 


10 REM **Throw two dice 100 times plus frequency diagram* * 
20 PRINT "Results from throwing two dice a hundred times:” 
30 PRINT 

40 REM **Space for score counters** 
50 DIM s(15) 

60 REM **Zeroise counters** 

70 FORj=2TO 12 

80 LET s(j)=0 

90 NEXT ¡ 

100 REM **generation loop** 

110 FOR ¡=1 TO 100 

120 LET s1=INT (6*RND + 1) 

125 LET s2=INT (6*RND + 1) 

130 LET s=s1t+s2 

135 LET s(s) =s(s) + 1 

140 REM **end of loop** 

150 NEXT ¡ 

160 REM **output results** 

170 PRINT 

180 REM **table rows loop** 

190 FOR k=2 TO 12 
200 PRINT k;TAB 5;s(k);TAB 10; 
210 IF s(k)=0 THEN GO TO 270 
220 REM **column of stars loop** 
230 FOR |=1 TO sí(k) 


240 PRINT "*”; 
250 NEXT | 
260 REM **end of stars loop** 
270 PRINT 
280 NEXT k 
290 REM **end of table loop** 
300 STOP 
Programa 19 
RUN 
Resultado de lanzar dos dados cien veces: 
2 2 "o 
3 5 A. un* 
4 7 HARARAA 
5 8 MARA 
6 15 A 
7 18 AARRARARAERRARR RARA 
8 13 KARA ARA 
9 9 AREAS 
10 47 MOI OR ARA 
11 2 e 
12 4 ..n 


XA 


Programa 19. 
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PF 5 


10 REM **Plurals** 

20 LET a$="s" 

30 INPUT "enter word";b$ 
40 PRINT b$ 

50 PRINT b$+a$ 

60 STOP 


RUN 
tree 
trees 


RUN 
house 
houses 


Ejercicio 4 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
125 
130 
140 
150 
155 
160 
170 
180 
190 
200 
210 
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REM **simple code program** 
PRINT "Simple code generation” 
LET c$="" 

DIM a$(26) 


Programa 20 


LET a$= "abodefghijklImnoparstuvwxyz" ]————— Construcción de la lista. 


REM **directory set up** 
INPUT 
PRINT w$ 

LET I=LEN w$ 

REM **looking up in directory ** 
FOR j=1 TO | 

LET i=1 

REM **matching loop” 

IF wS(i)=a$(i) THEN GO TO 160 


REM **exit when letter matched** 


LET ¡=1+1 
GO TO 125 


REM **add index to code in string form** 


LET có$=cS+STR$ i+"” ” 


NEXT j 

PRINT 

PRINT c$ 

sToP 
RUN 
Simple code generation 
computing 
3 lu 13 16 21 
RUN 
Simple code generation 
parliament 
16 1 18 12 9 
RUN 


Simple code generation 
professionals 


16 18 15 6 5 
[K] Programa 21. 


”Next word for coding'”;w$ 


14 


Compara cada letra de la 
palabra (w$) con cada letra 
de la lista hasta encontrarla. 


Entonces suma el índice en 
forma de string al string de 


Programa 21 


20 


Ejercicio 5 


10 REM **random 3-letter words** 

20 PRINT "This program generates random three-letter words:” 
30 REM **directory** 

40 LET a$= "abcdefghijkImnoparstuvwxyz” 
50 INPUT "Another list?”;r$ 

60 IF r$<>"yes” THEN GO TO 210 

70 REM **20 words** 

80 FOR k=1 TO 20 

90 REM **word string empty to start** 
100 LET w$="" 

110 REM **start of a word** 

120 FORj¡=1 TO 3 

130 LET x=INT (26*RND + 1) 

140 LET w$=wS + a$(x) 

150 NEXT | 

160 REM **print the word** 

170 PRINT w$ 

180 REM **go back for next word** 

190 NEXT k 

200 GO TO 50 

210 STOP Programa 22 


RUN 
This program generates random 
three-letter words: 
rpl 
ikr 
jwv 
cub 
xtag 
ing 
rel 
yrz 
ino 
xka 
nxh 
meb 
whw 
dar 
g9yp 
kaq 
jet 
jga 
zyu 
phv 


¿Cuántas veces debes ejecutar el programa para obtener una palabra “propia”? 


[K] Programa 22. 
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7.1 
7.2 
7.3 
7.4 
7.5 
7.6 
17 
7.8 
7.9 
7.10 
7.11 


” 


UNIDAD 7 


Gráficos, sonido y color 


Introducción . 
Color: BORDER 
Color: PAPER . 
Color: INK 
Colores ligeros 
FLASH y BRIGHT . 
Gráficos movibles 
PLOT y DRAW . 


Caracteres gráficos definidos por el usuario . 


Sonido en programas . y 
Efectos de sonido en programas 
Objetivos de la Unidad 7 . 
Respuestas a PF y Ejercicios . 


191 
191 
192 
193 
194 
199 
200 
205 
208 
210 
215 
216 
217 


7.1 "Introducción 


Hasta ahora hemos utilizado el Spectrum para el manejo de números y textos, 
en blanco y negro, a fin de obtener una base sólida del lenguaje BASIC. Sin embar- 
go, lo más atractivo del Spectrum es el rango de colores que se puede obtener en 
pantalla, además de los sonidos. 

Está claro que los juegos cobran especial atractivo si se le suministra color y 
sonido cuando los “invasores” o los barcos “piratas” son destruidos. Pero los gráfi- 
cos y los programas educacionales, por ejemplo, son más comprensibles con la apli- 
cación de ambos elementos. 


7.2 Color: BORDER 


Existen tres áreas principales de la pantalla para reproducir color. La primera 
de ellas es el borde. La habrás visto en color al intentar cargar un programa desde 
cinta: el borde hace destellos en azul claro, después en rojo, cuando el computador 
busca un programa. 

Puedes aindicar al computador que en esta zona te reproduzca un color en par- 
ticular por medio del comando BORDER. Está en la tecla B. 

Si ejecutas el siguiente programa verás el efecto de BORDER. 


10 REM *** rra AAA 


20 REM **Border Colours** 

30 REM e ros ono on 

40 FOR x=0TO 7 

50 BORDER x 

60 REM **Pause to slow program 

70 REM enough to see each 

80 REM colour displayed.** 

90 PAUSE 50 

100 NEXT x 

110 STOP Programa 1. Colores del borde 


Programa 1. 
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La PAUSE de la línea 90 retrasa la salida lo suficiente para que puedas vera el 
ciclo de coloreadoa del borde. Sin esta línea, el cambio de color es tan rápido que 
no podrías apreciarlo. 

Habrás visto el ciclo de color del borde a través de ocho coalores, en este orden: 
negro, azul, rojo, púrpura, verde, crema, amarillo y blanco. 

La función BORDER usa los números 0 a 7 inclusive para referirse a los colaores 
anteriores, y las teclas numéricas de la fila superior del teclado tienen sus nombres 
apropiados. 

Como ejercicio, ¿por qué no usas BORDER para colorear algunos de los progra- 
mas que has escrito durante el curso? 


7.3 Color: PAPER 


La otra parte importante de la pantalla, dentro del borde, se llama papel. Esta 
es la parte donde has visto tus programas listados, así como los resultados de las 
ejecuciones. La instrucción PAPER se obtiene entrando en modalidad E (pulsa CAPS 
SHIFT y SYMBOL SHIFT) luego SYMBOL SHIFT y C. Lo mismo que con BORDER, los 
colores se referencian por números. 

Este programa imprime franjas de cada uno: 


10 REM Pon AA 


20 REM **Paper Colours** 
30 REM eos o ooo ooo 
40 FOR x=0 TO 7 
50 REM **To get paper colours 
60 REM you must actually 
70 REM  PRINT something.** 
80 PAPER x 
90 PRINT ” 
100 NEXT x 
110 STOP 
Programa 2. Colores en papel 


[K] Programa 2. 


Observa que has de imprimir algo en la pantalla para ver los colores que has 
pedido, a menos que limpies la pantalla (CLS). 
Si ahora alteras el Programa 2 para repetir las franjas diez veces verás cómo 
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se mueven. Cuando la pantalla está llena, el computador pregunta 'scroll?', y tienes 
que tocar la tecla Y tres veces antes de que el programa se detenga coan el mensaje 


9 STOP statement, 110:1 


10 
20 
30 
33 
35 
37 
40 


A 


TI 


REM **Coloured stripes** 

REM RO O NOA RARA 
REM **Cycle pattern 10 times** 
FOR y=1 TO 10 

REM **Start of pattern loop** 
FOR x=0 TO 7 

REM **To get paper colours 
REM you must actually 

REM  PRINT something.** 
PAPER x 

PRINT 

NEXT x 

REM **End of pattern loop** 
NEXT y 

REM **End of cycling loop** 
sToOP 


Programa 3. 


7.4 Color: INK 


Programa 3. Franjas de 


colores 


El Programa 4 imprime alguna información en las franjas de colores desarrolla- 
das en el Programa 3. El color de las letras se conoce como la tinta. Hasta ahora 
habíamos usado tinta negra en papel blanco: son los valores por defecto, digamos, 
cuando se enciende el computador la primera vez o se borra la memoria con la fun- 


ción NEW. 


La instrucción INK se obtiene entrando en modalidad E, entonces se pulsa SYMBOL 
SHIFT y X. Lo mismo que BORDER y PAPER, los colaores se referencian por números. 


10 
20 
30 
33 
35 
37 


REM Po A A AA 


REM **Coloured Messages** 
REM RU OOOO ARA 
REM **Cycle pattern 10 times** 
FOR y=1 TO 10 

REM **Start of pattern loop** 
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40 FOR x=0 TO 7 

45 REM **z chosen to contrast 

55 REM with x.** 

60 REM **To get paper colours 

65 REM you must actually 

70 REM  PRINT something.** 

80 PAPER x 

85 INK z 

90 PRINT "Hello to all our viewers. 
100 NEXT x 

103 REM **End of pattern loop** 
105 NEXT y 

107 REM **End of cycling loop** 
110 STOP Programa 4. Mensajes en color 


[K] Programa 4. 


hemos querido que z sea 7-x, así, por ejemplo, con x=3, el papel será color 3, 
que es púrpura. La tinta será 7-x = 7-3 = 4, y el color 4 es el verde. 

Habrás visto al ejecutar este programa que algunas combinaciones de tinta y 
papel son más fáciles de leer que otras. Sin un monitor en color, las combinaciones 
aparecen horribles. De todos modos es importante elegir combinaciones adecuadas. 
Las descubrirás por ti mismo. 

Piensa también que si vas a producir programas que van a usar Otras personas, 
no todas van a tener monitor en color, por lo que algunas combinaciones resultarán 
inaceptables en blanco y negro. Por ejemplo, azul y rojo se distinguen con claridad 
en color, pero ofrecen un pobre contraste en blanco y negro. 


7.5 Colores ligeros 


Ahora que sabemos cómo trata los colores el Spectrum, veamos cómo un moni- 
tor o televisión en color produce los colores que queremos. Ejecuta el Programa $5. 
Tendrás una demostración visual de la explicación que sigue: 


10 REM + oc 


20 REM **Coloured light** 

30 REM Rena A A 
40 REM **black screen** 

50 BORDER O 

60 PAPER O 


194 


A 


65 CLS* 


70 REM nooo o A 


80 REM **Flashing title** 


85 INK 7 

90 FLASH 1 

95 PRINT AT 0,5;"Mixing coloured light" 

100 FLASH O 

05 PRINT 

110 REM + evoocon e 

115 FOR x=0 TO 1 

120 PRINT INK 2;" 

25 NEXT x 

130 REM “errar a 

135 FOR x=0 TO 3 

40 PRINT INK 2;” me , NIK G; Ms INC 4: IE 

145 NEXT x 

SO REM ero noc 

155 FOR x=0 TO 3 

60 PRINT INK 2;” ME; INK 3S;” Mi 0; IN 7; aaa 
INK 5;” ME"; INK 4; MS” 

170 NEXT 

175 REM KKHAAAARA AAA AAA ARA A 

180 FOR x=0 TO 1 

190 PRINT INK 0; BS”: [NK 1; BE”. INK 5;'” MEMES * 
INK 4; MM 

200 NEXT x 

205 REM RKREHARARRRRR RR A RRA A 

210 FOR x=1 TO 3 

220 PRINT INK 0; MES: IN 1; IEEE > 


230 NEXT x 

235 REM **Spotlights printed** 
240 REM RAKKARARKARA AAA AAA AR A 
250 REM **Now print key** 

255 INK 7 

260 PRINT AT 2,17,”Primary colours” 
270 PRINT AT 4,19;”"Red” 

280 PRINT AT 5,19;"Blue” 

290 PRINT AT 6,19;"Green” 

300 PRINT AT 8,17;"Secondary” 
310 PRINT AT 9,25;"Colours” 

320 PRINT AT 10,19;”Red + Blue” 
330 PRINT AT 11,19;” = Magenta” 
340 PRINT AT 12,19;”"Blue + Green” 
350 PRINT AT 13,19;" = Cyan” 

360 PRINT AT 14,19;"Green + Red” 
370 PRINT AT 15,19;" = Yellow” 
380 PRINT AT 18,17;"Finally,” 

390 PRINT AT 20,19;"All colours” 
400 PRINT AT 21,19;"make white” 
405 REM **Key printed out** 

410 STOP 


ALO REMITA NIE AAN Programa 5. Colores ligeros 


Programa S. 
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Puedes cambiar el valor INK en un programa que tenga sentencia PRINT, como 
en la línea 120 del Programa 5. Esto imprime diez cuadros de color 2, que es el 
rojo. Las barras, en las sentencias PRINT, se obtienen usando [G] y CAPS SHIFT y 8. 

Para ayudarte a escribir este programa, el número de cuadrados dentro de cada 
juego es el siguiente: 


Línea 

120 10 

140 6 4 6 

160 2 4 4 2 4 
190 2 4 6 4 
220 2 10 


ejecuta el programa un par de veces. En las líneas 90 y 100, FLASH se obtiene 
de la modalidad [E] , SYMBOL SHIFT y [V 

Verás que el programa produce tres rectángulos superpuestos, el de la izquierda 
rojo, el de la derecha verde y el del fondo azul. Donde se encuentran el rojo y el 
verde se produce el amarillo; el azul y el verde producen el crema (azul claro), y 
el rojo y el azul producen el púrpura. Donde se mezclan los tres se produce el blanco. 

Un tubo de color es sensible al rojo, verde y azul y produce otras sombras con 
sus mezclas. 

Si observas el teclado de tu Spectrum verás lo útil que son los números de los 
colores. Azul es 1, rojo es 2; azul y rojo hacen el púrpura, que es el 3 así que 1+2=3. 
Del mismo modo, rojo (2) y verde (4) hacen el amarillo (6). Verde (4) y azul (1) 
hacen el azul claro (5). Azul (1), rojo (2) y verde (4) hacen el blanco (7). Negro 
y cualquier color da el color en sí mismo, por lo que el negro debe ser 0. 

Púrpura (3) y verde (4) hacen el blanco; azul claro (5) y rojo (2) hacen el blanco 
(7). Y aquí termina la teoría de los colores. Decide tú los que te gusten. 


PF 1 
¿Qué colores generan las siguientes instrucciones?: 


(a) BORDER 6  (b) PAPER 1 (c) INK 3 
Ejemplo 1 


Añade color al siguiente programa de prueba de tablas, para hacerlo más efectivo: 
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5 
10 
15 
20 
30 
40 
50 
60 
65 
70 
75 
80 
90 
100 
105 
110 
120 
130 
140 
150 
151 
152 
154 
156 
158 
160 
170 
180 
185 
190 
200 
210 
230 
237 
240 
250 
260 
270 
291 
300 
310 
320 
330 
340 
350 
360 
370 
375 
380 
390 
400 


RANDOMIZE 

LET e=0 

LET d=0 

PRINT AT 7,8”TEST YOUR TABLES" 

PRINT AT 11,2;"TYPE YOUR ANSWER, THEN TOUCH" 
PRINT ” THE ENTER KEY." 

PRINT AT 16,2: "TOUCH ANY KEY (EXCEPT BREAK)" 
PRINT "WHEN YOU ARE READY TO START.” 

LET a$=INKEYS 

IF aS>="0" AND a$="z" THEN GO TO 90 

IF a$="." THEN GO TO 90 

GO TO 65 

LET a=INT (RND*13) 

LET b=INT (RND*13) 

LET e=0 

LET d=d+1 

CLS 

PRINTAT 7 1tia ox "ib" = 9” 


PRINT AT 14,1;"TYPE IN YOUR ANSWER-THEN ENTER” 


INPUT 1$ 

IF f$="" THEN GO TO 150 
FOR ¡=1 TO LEN f$ 

IF f$()<"0” OR f$(i)>"9" THEN GO TO 150 

NEXT ¡ 

LET f=VAL f$ 

CLS 

PRINT AT 7,11ja¡" x "by" = "sf 

IF f<>a*b THEN GO TO 300 

IF e>0 THEN GO TO 200 

LET c=c+1 

PRINT AT 14,2;"RIGHT-YOUR SCORE IS NOW ";c;""/":d 
PAUSE 150 

IF d<10 THEN GO TO 90 

CLS 

PRINT AT 5,3;"YOUR SCORE 1S”;c;” OUT OF 10” 
PRINT AT 9,8;"FOR ANOTHER Go" 

PRINT AT 11,11;"TYPE RUN” 

PRINT AT 13,4;"THEN TOUCH THE ENTER KEY” 
STOP 

LET e=e+1 

IF e>=3 THEN GO TO 350 

PRINT AT 14,8;"WRONG-TRY AGAIN” 

PAUSE 150 

GO TO 120 

PAUSE 150 

PRINT AT 7,0;” 

PRINT AT 7,11:a;” x ":b;" "a'b 

PRINT AT 14, 3;"THIS IS THE l£ CORRECT ANSWER” 
PAUSE 500 
LET e=0 
GO TO 220 


Programa 6. 


Programa 6. Prueba de tablas 
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RUN: instrucciones iniciales 


TEST YOUR TABLES 
(prueba tus tablas) 


TYPE YOUR ANSWER, THEN TOUCH 
THE ENTER KEY. 
(teclea tu respuesta y después pulsa ENTER) 
TOUCH ANY KEY (EXCEPT BREAK) 
WHEN YOU ARE READY TO START. 
(pulsa cualquier tecla (excepto BREAK) cuando estés preparado) 
RUN: visualización típica de pregunta 
5x 12 = 7 


TYPE IN YOUR ANSWER-THEN ENTER 
(escribe la respuesta-luego ENTER) 


RUN: visualización típica de respauesta correcta 
5 x 12 = 80 


RIGHT-YOUR SCORE IS NOW 1/1 
(correcto-tu puntuación es 1/1) 


RUN: visualización típica de respuesta errónea 
10 x5=55 


WRONG-TRY AGAIN 
(erróneo-intenta de nuevo) 


RUN: respuesta correcta tras tres intentos erróneos 
9x6= 54 


THIS IS THE CORRECT ANSWER 
(ésta es la respuesta correcta) 


RUN: notificación de la puntuación/instrucciones de re-ejecución 


YOUR SCORE IS 8 OUT OF 10 
(tu puntuación es de 8 sobre 10) 


FOR ANOTHER GO: 
(para ejecutar otra vez:) 


TYPE RUN 
(escribe RUN) 


THEN TOUCH THE ENTER KEY 
(luego pulsa ENTER) 
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Este programa de prueba de tablas produce un juego de diez preguntas genera- 
das aleatoriamente, en el rango de 0 x Oa 12 x 12. Si te equivocas se te da otra 
oportunidad. Después de tres respuestas erróneas a una pregunta, se te muestra la 
respuesta correcta. Es un programa muy bonito, pero pongámosle color. 

Primero, añadamos color al borde: 


7 BORDER 4 
8 CLS 


y nos dará un borde verde. Las siguientes líneas: 


235 BORDER 7 

237 CLS 

239 BORDER 1 
limpian el borde verde, después de haberse contestado diez preguntas, y lo pone en 
azul. Ahora añadimos estas líneas: 

280 FOR A=1 TO 10 

282 FOR B=1 TO 2 

284 BORDER B 

285 PAUSE 6 

286 NEXT B 

288 PAUSE 6 

290 NEXT A 
que cambian el color en el borde, alternativamente de azul a rojo, diez veces, para 
destacar la puntuación. Ahora ejecuta el programa y mira si te gusta. Tanto si te 
gusta como si no, experimenta por ti mismo otros colores. 

Volveremos a este programa al final de la Unidad, al tratar sobre sonido. 


7.6 FLASH y BRIGHT 


Ya hemos usado la instrucción FLASH en el Programa 5. Este programa sencillo 
muestra su efecto: 


5 FLASH 1 

10 PRINT "Hello, l'm the Spect:um" 

15 FLASH O Programa 7. Mensaje destellante 
Programa 7. 


RUN 
Hello, I'm the Spectrum 
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El mensaje aparece alternativamente en tinta negra sobre papel blanco, luego 
tinta blanca sobre papel negro, lo que hace que el mensaje destelle. FLASH 1 hace 
que se active el efecto y FLASH O lo desactiva. Al quitar el efecto, los mensajes que 
siguen ya no destellan. La impresión de literales entre FLASH 1 y FLASH 0 permane- 
cen destellando. BRIGHT incrementa la intensidad del color; BRIGHT 1 activa el efec- 
to; BRIGHT O lo desactiva. 

Las instrucciones comentadas te permiten producir efectos de colores en los pro- 
gramas que escribas y resultarán más atractivos si el color se aplica a gráficos, espe- 
cialmente los movibles. 


7.7 Gráficos movibles 


Sigamos un ejemplo de cómo se produce un sencillo gráfico movible. El dibujo, 
o símbolos gráficos, se hallan en el Spectrum en la hilera superior de teclas —las 
teclas numéricas. Se acceden entrando en modalidad GRAPHICS, manteniendo pulsa- 
da CAPS SHIFT y después la tecla 9. 

Verás que el cursor se convierte en una letra destellante. Si mantienes pul- 
sada CAPS SHIFT y tocas cualquier tecla con símbolo gráfico, ese símbolo aparecerá 
en la pantalla. 

Si tocas INVERSE VIDEO, luego GRAPHICS (9), mientras se mantiene pulsada CAPS 
SHIFT, podrás lograr invertir el símbolo gráfico, es decir, las partes blancas se vuel- 
ven negras y las negras blancas. Para volver al uso ordinario del teclado tendrás 
que tocar TRUE VIDEO, mientras mantienes pulsada CAPS SHIFT. 

Puedes sustituir cualquiera de los colores disponibles por el negro y el blanco 
de los símbolos gráficos, usando instrucciones INK y PAPER antes de enviar los sím- 
bolos a pantalla. 


Ejemplo 2: Programa de autobús en movimiento 
Este programa dibujará un autobús de aspecto rechoncho en la pantalla, junto 
a la parte izquierda: 


90 LET x=0 
100 PRINT AT 12,x;" a 
110 PRINT AT 13: ELA 


120 PRINT AT 14,x;" Programa 8. Autobús 


K)] Programa 8. 


Para ayudarte a reproducir el dibujo, los gráficos se han obtenido así: 
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línea 100: SYMBOL SHIFT y p (para conseguir las comillas) 
SPACE 
CAPS SHIFT y TRUE VIDEO CAPS SHIFT y GRAPHICS 
CAPS SHIFT y 4 
CAPS SHIFT y GRAPHICS CAPS SHIFT y INVERSE VIDEO 
CAPS SHIFT y GRAPHICS 
CAPS SHIFT y 7 (repetido 4 veces) 
CAPS SHIFT y GRAPHICS CAPS SHIFT y TRUE VIDEO 
SYMBOL SHIFT y p 


línea 110: SYMBOL SHIFT y p 
SPACE 
CAPS SHIFT y INVERSE VIDEO 
Ahora teclea “Omnibus”: aparecerá en blanco sobre negro. 
CAPS SHIFT y TRUE VIDEO 
SYMBOL SHIFT y p 


línea 120: El símbolo ” se obtiene de la tecla p, cuando se está en modalidad 
El y se tiene pulsada SYMBOL SHIFT. 


Cuando hagas RUN del Programa 8, obtendrás este dibujo: 


El autobús será negro, con letras blancas. Ahora cambia la línea 90 a: 
90 FOR x=0 TO 24 
y añade la línea 130: 
130 NEXT x 
lo que nos dará el siguiente listado: 


90 FOR x=0 TO 24 


100 PRPINT AT 12x;” " 
110 PRINT AT 13 Ra 
120 PRINT AT 14,x;” EN 
130 NEXT x Programa 9. Autobús movible 


[K] Programa 9. 


Ahora ejecuta tu Programa 9. Mágico! El autobús se desplaza rápidamente por 
la pantalla. Lo que ocurre es que en el bucle FOR...NEXT, cada vez se suma 1 al 
valor de x y el autobús se dibuja en una posición más a la derecha de la vez anterior. 
Es importante dejar una línea de espacios en la parte izquierda del dibujo, para bo- 
rrarlo, a medida que se desplaza a la derecha. 

Esta es exactamente la forma en que se hacen las películas de dibujos animados 
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—la ligera diferencia en la posición de cada dibujo, acoplado al rápido movimiento 
de un dibujo al otro, nos hace pensar que el dibujo está en movimiento. 

Podemos ajustar la velocidad del autobús añadiendo una instrucción PAUSE en 
la línea 125. 


tecla 2. 
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[K] 


90 FOR x=0 TO 24 


100 PRINT AT 12,x;" Es 
110 PRINT AT 13, PL 
120 PRINT AT 14 x;" 
125 PAUSE 2 

130 NEXT x 


Programa 10. 


Programa 10. Autobús movible 


Ajusta la velocidad a tu gusto utilizando PAUSE. 
Ahora, pocas compañías tienen autobuses negros, así que vamos a ponerlo de 
rojo. Añadimos 95 INK 2 y 115 INK O. 


K 


90 FOR x=0 TO 24 

95 INK 2 

100 PRINT AT 12,x:" " 
110. PRINT AT 13%" Mii > 
115 INK O 

120 PRINTAT 14x" 9% O» 
125 PAUSE 1 

130 NEXT x 


Programa 11. 


Programa 11. Autobús de color 


Bien, todo esto es muy bonito, pero no hay carretera. No hay problema, añada- 
mos el bucle FOR...NEXT en líneas 40 a 60. El símbolo d. la línea 50 está en la 


40 FOR x=0 TO 31 

50 PRINT AT 15:x”" Mm 

60 NEXT x 

90 FOR x=0 TO 24 

95 INK 2 

100 PRINT AT 12,x:” 8 
110 PRINT AT 13: 7 > 
115 INK O 5 
120 PRINT AT 14,x;" 

125 PAUSE 1 

130 NEXT x 


Programa 12. 


RUN 


Programa 12. Autobús con carretera 


Los principios que te hemos mostrado en este ejemplo te permitirá dibujar y 
colorear tus propios dibujos. Ahora experimenta con símbolos gráficos, para hacer 
tus creaciones. No olvides la línea en blanco a la izquierda del dibujo. 

Volveremos con nuestro autobús para añadirle sonido, más tarde. 


EJEMPLO 3: Dibujando con burbujas 

La función INKEY$ (conseguida en modalidad , tecla n) permite al usuario , 
del computador introducir cosas por teclado sin necesidad de tocar ENTER después. 
Cuando se usa INKEY$ es usualmente necesario verificar cada tecla que se pulsa y 
responder inmediatamente. La “respuesta? puede ser una de tres tipos: 


* realiza la apropiada acción para la tecla definida por ese programa 

* un mensaje de error tal como 'tecla no válida ahora — por favor vuelve a 
entrar' 

* 0, para todas las teclas no válidas, no hacer nada, pero volviendo a pedir 
introducción válida. 


En Programa 13, sólo las teclas 5, 6, 7 y 8 son válidas. Si cualquier otra tecla 
se pulsa, no hay ninguna acción. Todo lo que sucede es que la línea 150 vuelve a 
enviar el control a la 90, en espera de respuesta válida. 

Este programa usa la tecla 5 para mover a la izquierda, 6 para abajo, 7 para 
arriba y 8 para la derecha. Las líneas 115, 125, 135 y 145 tratan el caso de que 
el dibujo llegue al filo de la pantalla. El dibujo no se borra a medida que se despla- 
za. Por supuesto, puedes usar las instrucciones INK y PAPER para realizar el dibujo 
en color, en lugar de blanco y negro. 


10 LET y=0 

20 LETx=0 

90 REM **drawing program* * 

100 PRINT AT yx "mm ” 

110 IF INKEYS$="5" THEN LET x=x—1 
115 IF x<=0 THEN LET x=0 

120 IF INKEY$="6" THEN LET y=y+1 
125 IF y>=21 THEN LET y=21 

130 IF INKEYS$="7" THEN LET y=y—1 
135 IF y<=0 THEN LET y=0 

140 IF INKEY$="8" THEN LET x=x+1 
145 IF x>=31 THEN LET x= 31 


150 GO TO 90 Programa 13. Dibujo de burbuja 


[K] Programa 13. 
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Una ejecución típica: 


Ejemplo 4: Burbuja movible 

Escapa a la intención de este curso el desarrollar juegos complejos, como los 
espaciales, porque se necesita un alto nivel de experiencia en programación. Sin em- 
bargo, este programa, desarrollado del Ejemplo 3 anterior, muestra un movimiento 
bidireccional de una nave planetaria. Fíjate la diferencia con el Programa 13, para 
permitir el borrado del dibujo tras él. Si lo quieres hacer más real, los gráficos en 
líneas 95 a 105 tienen que alterarse, recordando que el dibujo necesita a su alrededor 
un espacio en blanco para borrarse. El “borde de la pantalla” x e y se han de probar 
también, para permitir diferentes tamaños del dibujo. 


10 

20 

90 

gs 
100 
105 
110 
115 
120 
125 
130 
135 
140 
145 
150 
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LET y=1 
LET x=1 
REM **moving blob* 


PRINT AT y—1,x ” 

PRINT AT y ,x—1; 1] 

PRINTAT Ya da j de 

F INKEYS="5” THEN LET x=x—1 
Fx<=1 THEN LET x=1 

IF INKEY$="6” THEN LET y=y+1 
IF y>=20 THEN LET y=20 

F INKEYS="7" THEN LET y=y—1 
F y<=1 THEN LET y=1 

IF INKEYS ="8" THEN LET x=x+1 
IF. x>=30 THEN LET x=30 

GO TO 90 


[K] Programa 14. 


Programa 14. Burbuja movible 


Ejecuta el Programa 14 y fíjate cómo puedes mover la burbuja rápidamente 
a cualquier punto dentro del área designada de la pantalla, usando las teclas 5, 6, 
7 y 8. Como antes, puedes usar las instrucciones INK y PAPER. 


7.8 PLOT y DRAW 


El Spectrum visualiza hasta 32 caracteres en cada una de las 22 líneas de su 
pantalla y ya has visto cómo se pueden dibujar gráficos y caracteres por medio de 
la instrucción PRINT AT. 

El Spectrum también tiene alta resolución de gráficos. Cada posición de carác- 
ter está hecha de puntos, en una matriz de 8x8=64. 

Así, la pantalla es de un ancho de 32x8=256 puntos y de una profundidad 
de 22x8= 176 puntos. Cada punto se direcciona por las coordenadas x e y. Avanza 
hacia la derecha por medio de (x) y te sitúas verticalmente por medio de (»). 


a — 256 puntos ———— 


Coordenadas (0,0) 


o 


Punto de coordenadas (200,100) 


Figura 1 Efecto de PLOT 200,100. 


La instrucción PLOT tiene el formato: 


PLOT coordenada-x, coordenada-y 
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Los valores para x van de O a 255 y para y de O a 175. De esta forma podemos 
dibujar líneas finísimas. El único límite es tu imaginación. 

Si queremos dibujar una línea larga, sería muy tedioso ir asignando coordena- 
das; de modo que utilizaremos la instrucción DRAW. 

Para dibujar una línea recta, haremos 


DRAW x.y 


La línea comenzará desde el último posicionamiento de un PLOT o DRAW. (Las 
instrucciones NEW, RUN, CLEAR y CLS restauran la posición de inicio a (0,0), que es 
la esquina inferior izquierda de la pantalla.) 

La línea termina x puntos a la derecha, y a una altura y de la posición de co- 
mienzo. Puedes usar color para PLOT y DRAW, usando la instrucción INK, pero ten 
cuidado, porque INK se refiere a una posición entera de carácter y no a una posición 
de punto. 

El siguiente programa dibuja la bandera francesa, a todo color. La bandera 
consiste de tres franjas verticales, de izquierda a derecha éstas son azul, blanca y 
roja. El fondo lo ponemos a 0 (negro) para contrastar, y luego el bucle comenzando 
en 110 y terminando en 180 elabora la bandera, de abajo arriba, rellenando filas 
de una vez. 


DRAW 85,0 


Cuando llegamos al lado derecho de la pantalla, debemos restaurar la posición 
por lo que la función de la línea 115: 


115 PLOT Oy 


80 REM **French Tricolore** 
90 BORDER O 

100 CLS 

110 FOR y=0TO 175 

115 PLOT O,y 

120 INK 1 

125 REM **Blue stripe** 

130 DRAW 85,0 

140 INK 7 

145 REM **White stripe** 

150 DRAW 85,0 

160 INK 2 

165 REM **Red stripe** 

170 DRAW 85,0 

180 NEXT y 

190 STOP Programa 15. Bandera francesa 


K] Programa 15. 


Ejecuta el programa. 
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PF 2 
1. Transforma el Programa 15 para dibujar la bandera de Bélgica (negro/ 
amarillo/rojo en franjas verticales). 
2. Transforma el Programa 15 para dibujar la bandera de Italia (verde/blanco/ 
rojo en franjas verticales). 


También puedes usar DRAW para dibujar círculos: 
DRAW x.y,a 


Donde x e y indican el punto de finalización, como antes, y a controla el ángulo 
a través del cual debe girar la línea. La especificación de a debe ser en radianes, 
no en grados, donde 27 radianes hacen la vuelta completa. Si a es positivo, el giro 
es hacia el sentido contrario de las agujas del reloj, si es negativo, en el mismo senti- 
do que las agujas del reloj. 

Esto es un poco complicado, por lo que el Spectrum tiene la función CIRCLE, 
que es del siguiente formato: 

CIRCLE x,y.r 


Donde x e y son las coordenadas del centro del círculo, y r el radio. 
Este programa dibuja una serie de círculos concéntricos, mediante el incremento 
del radio r, en un bucle FOR... NEXT. 


90 REM **concentric circles** 
100 FOR r=0 TO 70 STEP 5 
110 CIRCLE 100, 75,r 

120 NEXT r 

130 STOP 


Programa 16. Círculos concéntricos 


[K] Programa 16. 


RUN 
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Puedes añadir cualquier color, vía INK, como es usual, o, como en esta varla- 
ción del programa, usar colores escogidos aleatoriamente. El aspecto inusual de la 
distribución del color es debido al hecho de que INK sólo direcciona a nivel carácter, 
y no a nivel de punto. 


90 REM**concentric circles** 

100 FOR r=0 TO 70 STEP 5 

110 CIRCLE 100,75. 

115 INK INT (RND*7) 

120 NEXT r 

130 STOP Programa 17, Círculos coloreados 


[K] Programa 17. 


Ejercicio 1 

Hemos visto cómo se dibuja cualquier bandera de tres colores verticales; procu- 
ra hacer un programa para dibujar las tres franjas horizontalmente, por ejemplo, 
la bandera de Alemania. La franja inferior es amarilla, la del centro es roja, y la 
de arriba negra. 


7.9 Caracteres gráficos definidos por el usuario 


No es el propósito de este curso entrar en detalles de có.no definir tus propios 
caracteres extras. Es suficiente con decir que, cuando se está en la modalidad gráfi- 
co, (Gl , los veinte caracteres a hasta u inclusive están disponibles para el progra- 
mador para definir otros caracteres no contemplados en cl juego estandard del 
Spectrum. 

Cada una de las ocho hileras de puntos del espacio de un carácter equivale a 
un número binario de valores comprendidos entre el O y el 255, ambos inclusive; 
de modo que usando las funciones POKE y USR, cualquier punto en uno de los ca- 
racteres especiales puede ser rellenado o dejado en blanco. 

En el siguiente programa, definimos un tablero de ajedrez en líneas $0 y 60. 
Esto significa que en modalidad G la tecla “a” da el carácter repetido 32 veces en 
la línea 230. 

Hemos usado este carácter para permitirnos obtener colores extras; si usas rojo 
ink y amarillo paper para este carácter, te dará un naranja razonablemente bueno, 
aunque en una televisión ordinaria no será de calidad. 

Este programa produce un arcoiris de siete colores, aunque recto. Para colores 
ya disponibles en el teclado del Spectrum, los colores ink y paper se mantienen igual 
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(ver línea 490) pero para naranja, el segundo color del arcoiris, se han usado 


2 y paper 6 (rojo y amarillo). 


10 REM **Colours of Rainbow** 

DO REM 

30 REM **Chessboard pattern** 

40 FOR x=0 TO 6 STEP 2 

50 POKE USR "a" +x,85 

60 POKE USR "a" +x+1,170 

70 NEXT x 

80 REM **Graphics shift "a”** 

90 REM **now defined as** 

100 REM **chessboard pattern” * 

O REM trrrr rr 

120 REM **Black "sky"** 

130 BORDER O 

140 PAPER O 

150 REM **Sky now made black** 

160 REM nn 

170 REM **Print colours** 

180 FOR c=0T0 6 

190 READ ¡p 
200 REM **¡=ink;¡p=paper** 
210 INKi 
220 PAPER p 
230 PRINT ” 
240 REM **line 230;32 graphics* 
250 REM **shift "a” characters* 
260 NEXT c 
270 REM **Rainbow complete** 
280 REM RKKKARAKAA RARA RARA A RARA 
290 REM **Reset "Sky” black** 
300 PAPER O 

310 INK 7 

320 REM **White writing** 
330 REM erre 
340 PRINT " The colours of the Rainbow 
350 PRINT 
360 PRINT "Red" 

370 PRINT "Orange" 

380 PRINT Yellow” 

390 PRINT “Green” 
410 PRINT "Blue” 
420 PRINT "Indigo” 
430 PRINT "Violet” 
440 REM **Printing over now** 
450 STOP 
460 REM ***erermraranana nr. 
470 REM **Colours stored as ** 
480 REM **data-ink then paper**” 
490 DATA 2,2,2,6,6,6,4,4,5,5,1,1,3,3 
500 REM Programa 18 


[K] Programa 18. 


ink 


. Colores de arcoiris 
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7.10 Sonido en programas 


El Spectrum puede generar sonidos y tiene un pequeño altavoz incorporado en 
la parte interna del teclado. Ya te habrás dado cuenta del sonido que producen las 
teclas al pulsarlas: es generado por el computador. Si tecleas: 


POKE 23609,255 


como un comando, verás que el computador hace un sonido fuerte al tocar cualquier 
tecla. La intensidad de este sonido puedes variarla alterando el valor del segundo 
operando en el comando, pudiendo ser éste de O a 255. 


POKE 23609,0 


elimina el sonido. 


La instrucción BEEP controla la generación del sonido en los programas. BEEP 
se obtiene entrando en modo [E] y luego tocando SYMBOL SHIFT y z. 


BEPPtiene dos parámetros: 
BEEP ab 


a controla la duración de la nota y b controla la intensidad. 


Este programa emite 50 notas, todas con intensidad en C”, una octava por enci- 
ma de medio C; cada nota es más corta que la última, variando desde 1 a 0.02, 
para ilustrar el control sobre la duración de una nota: 


5 REM **BEEP** 

10 REM **Length of notes** 

20 FOR x=1 TO 50 

30 BEEP 1/x,12 

40 NEXT x Programa 19. Duración de notas 


[K] Programa -19. 


Este programa, como contraste, mantiene todas las notas en la misma duración 
pero varía desde 60 semitonos bajo medio C a 60 semitonos sobre medio C. 


5 REM **BEEP** 

10 REM **Pitch of notes** 

20 FOR x=--60 TO 60 

30 BEEP 0.5,x 

40 NEXT x Programa 20. Intensidad de las notas 


Programa 20. 


5 


210 


En la música occidental hay ocho notas en una octava, pero una octava consiste 


en doce semitonos; 


desde' medio C (0) 


esta tabla muestra los números de intensidad para una octava 
a C” (12). 


Intensidad de notas, usando BEEP. 


0 JD a YN -= o 


No] 


C 
CH (Db) 
D 
DH+ (Eb) 
E 
F 
FA (Gb) 
G 
GH (Ab) 
A 
AH (Bb) 
B 
Co 


Notas bajo Medio C son 
números NEGATIVOS. 


Las notas 


más bajas o más altas 


se consiguen quitando o añadiendo 12 


para cada 


octava abajo o arriba. 


Usando la escala de C, como ejemplo, el siguiente programa toca la escala: 


10 REM **Scale of C** 


20. REM pon 


30 BEEP 
40 BEEP 
50 BEEP 
60 BEEP 
70 BEEP 
80 BEEP 
90 BEEP 
100 BEEP 


K] Programa 


1,0: REM Doh 
: REM Re 
: REM Mi 
: REM Fa 
: REM Soh 
: REM La 
11: REM Te 
1,12: REM Doh' Programa 21. Escala C 


21. 


0N]0OAnN 


1, 
1; 
Us 
1, 
L, 
1, 


Observa que Do a Re, Re a Mi, Fa a Sol, Sol a La, y La a Re son cada una 
dos semitonos aparte, pero Mi a Fa y Re a Do en cada caso es sólo un semitono, 
para meter los doce semitono de una octava. Como G es 7 semitono sobre medio 
C, sólo tenemos que añadir 7 a cada uno de los números de tono en la escala C 
para obtener la escala G: 
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212 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 


REM **Scale of G** 

REM ERROR RA AAN MR A 

BEEP 1,7: REM Doh 

BEEP 1,9: REM Re 

BEEP 1,11: REM Mi 

BEEP 1,12: REM Fa 

BEEP 1,14: REM Soh 

BEEP 1,16: REM La 

BEEP 1,18: REM Te 

BEEP 1,19: REM Doh' Programa 22. Escala de G 


Programa 22. 


Ahora toquemos una tonada. Si pensamos en la instrucción BEEP, 
BEEP nik 


Hagamos que n sea la duración de la nota estandard de la pieza que vamos 
a tocar; tocaremos “London's Burning? —compás 3/4—. 

Hagamos que k sea la clave. Si tocamos en clave de G, k es 7. La pieza se 
inicia en D, que tiene dos semitonos menos que medio C, por lo que D es k-S. 


10 
20 
30 


40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


REM **Londonr's Burning** 

LET k=7 

REM **k=key (no. of semitones above middle c) — 
in this case, G ** 

LET n=05 

REM **n=duration of note (a crotchet)** 
REM **Bar 1** 

BEEP n/2,k-5 

BEEP n/2,k-5 

REM **Bar 2** 

BEEP nik 

BEEP n,k 

BEEP n/2,k-5 

BEEP n/2, k-5 

REM **Bar 3** 

BEEP n,k 


10 BEEP nik 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


BEEP n/2/k+2 
BEEP n/2,k +2 
REM **Bar 4** 
BEEP nk+4 
BEEP nk +4 
BEEP n/2,k+2 
BEEP n/2k +2 
REM **Bar 5** 
BEEP n,k+4 
BEEO n,k +4 
BEEP nk+7 
REM **Bar 6** 
BEEP n*2k+7 


300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


BEEP nk+7 
REM **Bar 7** 
BEEP n*2k+7 
BEEP n/2,k +7 
BEEP n/2k+5 
REM **Bar 8** 
BEEP n kk +4 
BEEP nk +4 
BEEP n/2,k +7 
BEEP n/2,k+5 
REM **Bar 9** 
BEEP n,k +4 
BEEP nk +4 
sToOP Programa 23. London's Burning 


Programa 23. 


10 

20 

30 

40 

50 

60 

70 

80 

85 

90 
100 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
315 
320 
330 
340 


REM **Darby Kelly** 

REM CR RARA 
REM **Tempo** 

LET x=0.35 

REM KARA RR RAR AA RA A 
REM **In key of G' Major** 
LET k=19 

REM HORROR RO RR A RR RAR AA AA 
FOR r=0 TO 1 

BEEP x/2,k—5 

BEEP x,k 

BEEP x/2,k + 4 

BEEP x,k+4 

NEXT r 

BEEP x/2,k—5 

BEEP x,k 

BEEP x/2,k + 4 

BEEP x/3,k + 4 

BEEP x/3,k + 2 

BEEP x/3,k +4 

BEEP xk +5 

BEEP x/2,k + 2 

BEEP xk +2 

BEEP X52,k—5 

BEEP x,k 

BEEP x/2,k + 4 

BEEP x/3,k + 4 

BEEP x/3,k + 2 

BEEP x/3,k 

BEEP x,k—3 

BEEP x/2,k + 5 

BEEP xk +5 

BEEP x/2,k—3 

FOR s=0 TO 1 

BEEP x,k—5 

BEEP x/2,k + 4 

BEEP xk +4 


213 


350 
360 
370 
380 
385 
390 
400 
410 
420 
425 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
615 
620 
630 
640 
650 
660 
670 
680 


BEEP x/2,k +2 
BEEP xk +2 
BEEP x/2,k 
BEEP x,k 

FOR r=0 TO 1 
BEEP x/2,k +4 
BEEP xk +2 
BEEP x/2,k—5 
BEEP x,k—5 
NEXT r 

BEEP x/2,k +4 
BEEP x,k +2 
BEEP x/2,k +7 
BEEP x/3,k +7 
BEEP x/3,k +6 
BEEP x/3k +7 
BEEP xk +7 
BEEP x/2,k—5 
BEEP x*4,k—5 
BEEP x/2,k +5 
BEEP xk +4 
BEEP x/2,k +2 
BEEP xk 
BEEP x/2,k—1 
BEEP x,k—3 
BEEP x/2,k 
BEEP x/3,k 
BEEP x/3,k—1 
BEEP x/3,k—3 
NEXT s 

BEEP x, k—5 
BEEP x/2,k +4 
BEEP xk +4 
BEEP x/2,k +2 
BEEP xk +2 
BEEP x/2,k 
BEEP x/2,k 


Programa 24. 


Programa 24. Darby Kelly 


Si ejecutas este programa, observarás que el Spectrum puede tocar composicio- 
nes difíciles. No puede tocar en armonía porque sólo tiene una *voz'. Las repeticio- 
nes se consiguen con bucles FOR...NEXT (ver líneas 385 a 425). Si estás versado 
en teoría musical no tendrás dificultad en escribir música computerizada; y si no 
lo estás, los libros sencillos de partituras para niños pueden servirte para introducir- 
las en el computador. 


Ejercicio 2 


Procura escribir un programa que toque cada una de las escalas desde medio 


C a C” (una octava arriba). 
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7.11 Efectos de sonido en programas 


BEEP se puede usar también para producir efectos especiales, como explosiones 
y sonidos de proyectiles. 

Volvamos con nuestro viejo autobús. El siguiente programa tiene añadidas las 
líneas 123 a 126, para proporcionar un sonido de doble tono. Las sentencias BEEP 
frenan el programa, por lo que no es necesaria la sentencia PAUSE que antes tenía. 


10 REM een 
20 REM **moving graphics-Bus** 
30 REM **draw road: in black** 
40 FOR x=0 TO 31 
50 PRINT AT 15,x; "E ” 

60 NEXT x 

TO REM **er ter rrara naaa ara 
80 REM **draw/move the bus** 
90 FOR x=0 TO 24 

95 INK 2 

97 REM **Bus in red** 

100 PRINT AT 12,x:” á 

110 PRINT AT 3: HA 

112 REM **Wheels in black** 

115 INK O 
120 PRINT AT 14x" O 

122 REM **Engine noise** 

123 BEEP 0.005,0 
126 BEEP 0.005,24 
130 NEXT x 
140 STOP 


4 RARA ARA RA Ñ . 
50 REM Programa 25. Autobús con sonido 


[K] Programa 25. 


Esta variación del programa sólo hace un sonido cada segundo movimiento del 
autobús, por lo que suena diferente: 


10 REM Ra A A AA 


20 REM **moving graphics-Bus** 
30 REM **draw road: in black** 
40 FOR x=0 TO 31 

50 PRINT AT 15,x;" " 

60 NEXT x 

70 REM RARA A AAA RA AAA 
80 REM **draw/move the bus** 
90 FOR x=0 TO 24 

95 INK 2 

97 REM **Bus in red** 

100 PRINT AT 12x "EEE 
110 PRINT AT 3 
112 REM **Wheels in black** 
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115 INKO 

120 PRINT AT 14,x"” O o” 

121 IF x/2=INT (x/2) THEN GO TO 130 
122 REM **Engine noise** 

123 BEEP 0.002,24 

126 BEEP 0.002,20 

130 NEXT x 

140 STOP 


150 REM PRIORI 


Programa 26. Autobús con sonido 


[K] Programa 26. 


Ejercicio 3 
Altera el Programa 26 para que el fondo sea azul claro, y el autobús azul en 
vez de rojo, para simular la noche. 


Objetivos de la Unidad 7 


Cuando acabes esta unidad comprueba que: 

Sabes usar BORDER para cambiar el color de fondo la] 
Sabes usar PAPER e INK para controlar los colores u 
Sabes combinar colores [8 
Sabes añadir color a tus programas para perfeccionar la salida [0] 
Sabes hacer figuras movibles sencillas O 
Sabes usar PLOT, DRAW y CIRCLE para dibujar O 
Sabes usar BEEP para componer música [ 


Sabes usar BEEP para sonidos especiales ( 
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Respuestas a PF 


PF 1 


(a) fondo amarillo 
(b) papel rojo 
(c) tinta violeta 


PF 2 


1. 


K 


Bandera Belga 


80 

90 
100 
110 
115 
120 
125 
130 
140 
145 
150 
160 
165 
170 
180 
190 


REM **Belgian Tricolore** 


BORDER 7 

CLS 

FOR y=0 TO 175 
PLOT 0,y 

INK 0 

REM **Black stripe** 
DRAW 85,0 

INK 6 

REM **Yellow stripe** 
DRAW 85,0 

INK 2 

REM **Red stripe** 
DRAW 85,0 

NEXT y 

STOP 


Programa 27. 


Bandera Italiana 


80 

90 
100 
110 
115 
120 
125 
130 
140 
145 
150 
160 
165 
170 
180 
190 


REM ** Italian Tricolore** 


BORDER O 

CLS 

FOR y=0 TO 175 
PLOT 0,y 

INK 4 

REM **Green stripe** 
DRAW 85,0 

INK 7 

REM **White stripe** 
DRAW 85,0 

INK 2 

REM **Red stripe* * 
DRAW 85,0 

NEXT y 

SsTOP 


Programa 28. 


Ejercicio 1 
Bandera Alemana 


Programa 27 


Programa 28 
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80 REM **German flag** 
90 BORDER 7 

100 CLS 

110 FOR y=0 TO 58 

115 INK6 

120 PLOT Oy 

130 DRAW 255,0 

140 NEXT y 

150 FOR y=59 TO 117 
160 INK 2 
170 PLOT Oy 

180 DRAW 255,0 

190 NEXT y 

200 FOR y=118 TO 175 
210 INKO 
220 PLOT Oy 

230 DRAW 255,0 

240 NEXT y Programa 29 


[KK] Programa 29. 


Ejercicio 2 
Tocando escalas musicales 

10 REM **Playing Scales** 
DO REM eo 
25 DIM S$(26) 
30 LET S$="C CHD EDE F FAG ADA BLbBC'” 
40 REM **Array S$ holds names of the keys*”* 
42 BORDER 1 
44 INKO 
45 PRINT AT 9,8; FLASH 1; "Musical Scales” 


BO REM 4 to A 


60 REM **Generate the 15 keys in the octave C to C'** 

65 REM ooo 

70 FOR k=1 TO 13 

75 PRINT AT 12,4;"This is the scale of ";S$(k*2—1 TO k*2) 
80 FOR x=0 TO 7 

90 READ n 

100 BEEP 0.75,n +k—1 

110 NEXT x 

112 REM **End of scale loop** 

115 RESTORE 

117 REM **Use same data for each scale** 

118 PAUSE 50 

120 NEXT k 

125 REM **Go back to generate next scale** 

130 REM een or 

140 REM **Semitones on scale** 

150 DATA 0,2,4,5,7,9,11,12 

160 REM AAA ARA AA RARA AA A AA 

165 CLS 

170 STOP Programa 30 


[K] Programa 30. 
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Ejercicio 3 
Autobús de noche 


A 


5 

7 

8 
10 
20 
30 
40 
50 
60 
70 
80 
90 
95 
97 
100 
110 
112 
115 
120 
121 
122 
123 
126 
130 
140 
150 


PAPER 5 

BORDER 5 

CLS 

REM on 
REM **moving graphics-Bus** 
REM **draw road: in black** 
FOR x=0 TO 31 

PRINT AT 15,x” ” 

NEXT x 

REM nono 
REM **draw/move the bus** 
FOR x=0 TO 24 

INK 1 

REM **Bus in blue** 

PRINT AT 12,x;" CIDOOMA 
PRINT AT A nt 
REM **Wheels in black** 

INK O 

PRINT AT 14x" O o" 

IF x/2=INT (x/2) THEN GO TO 130 
REM **Engine noise** 

BEEP 0.002,24 

BEEP 0.002,20 

NEXT x 

sTOP 


REM 4 ao A 


Programa 31. 


Programa 31 
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8.1 
8.2 
8.3 
8.4 
8.5 
8.6 
8.7 
88 
8.9 


UNIDAD 8 


Manejo de números 


Introducción E 
Promedios y media aritmética 
Rango . 

Otras operaciones . 
Comprobación manual . 

La representación de los números 
Redondeo con la función INT 
La función ABS . 

Iteración AIRE 
Objetivos de la Unidad 8 . 
Respuestas a PF y Ejercicios . 


221 
221 
226 
230 
233 
235 
238 
239 
240 
245 
246 


8.1 Introducción 


Hemos demostrado que las computadoras no son comedoras de números, pero 
en esta unidad vamos a contemplar su capacidad aritmética. No te preocupes si lo 
encuentras difícil. Estamos seguros de que lo superarás. Continuaremos con el “a 
ver qué pasa si...”. 


8.2 Promedios y media aritmética 


“¿Cuánto tiempo te ha llevado cada unida de este curso?” “pues, en promedio, 
unas tres horas”. Si te preguntásemos cuánto tiempo inviertes en completar una jor- 
nada normal, tal como ir a trabajar, nos contestarías en los mismos términos. Los 
aficionados al deporte utilizan también terminologías similares, como el promedio 
de goles. Hablamos de promedio de puntos en un examen o de promedio de edad 
en un grupo de personas, etc. 

Si quisiéramos calcular el promedio o media aritmética de las edades de un gru- 
po particular, tendríamos que sumar todas las edades de sus componentes y dividir 
el resultado por el número de personas que integran el grupo. Para hallar una media 
aritmética es necesario: suma, contabilización, y luego división de la suma por el 
contador. 


Ejemplo 1 
Hallar la media aritmética del siguiente juego de números: 


6,7,2,5,4,4,9,8. 
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Solución 
La suma = 6+7+2+54+44+4+9+8 = 45. 
Hay 8 números. 
Por lo que la media es = 45/8 = 5.625. 


PF 1 
Hallar la media aritmética del siguiente juego de números: 


8,4,2,6,1,7,6,1,4. 


Media aritmética 
Ejemplo 2 

Proyecta un algoritmo y escribe un programa para hallar la media aritmética 
de los siguientes números: 


56,47,52,65,24,34,59,37,49,66, 
38,24,62,76,31,47,66,61,74,45, 
66,44,55,67,36,56,54,54,50,43, 
18,83,23,79,29,—9999 


Solución 
Expresaremos el algoritmo primero en forma descriptiva. 


Start. 

Set counter to 1. 

Set sum to 0. 

Input the next mark. 

If mark = —9999 then go to 9 otherwise carry on to 6. 
Add mark to sum. 

Add 1 to counter. 

Go to 4. 

Set total counter-1. 

Calculate average = sum/total. 
Output average. 


UN — 


AOS 


Figura 1 Algoritmo descriptivo para media aritmética. 
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poner 30,40 
COUNTER a 1 
y 
SUM a 0 
60 


entrar 
siguiente 
PUNTUACION 


sumar 
PUNTUACION 
a SUM sumar 
la COUNTER 


SI poner 
EN TOTAL a 
COUNTER-1 


calcular 
PROMEDIO = 
SUM/TOTAL | 


( parar ) 170 


Figura 2 Diagrama para media aritmética. 


10 REM **Arithmetic Mean** 

20 PRINT "Arithmetic Mean Program” 
30 LET c=1 

40 LET s=0 

50 REM **Processing Loop* 

60 READ m 

70 IF m=-—9999 THEN GO TO 120 
80 LET s=s+m 

90 LETc=c+1 

100 GO TO 50 

110 REM KAKARAR AAA AAA RARA AA 
120 REM **Correct count** 

130 LET n=c—1 

140 REM RR SONO 
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150 
160 
170 
180 
190 
200 
210 
220 
230 


RUN 


PRINT 

PRINT "Average = ”;s/n 

SsTOP 

REM ¿KK AAA RARA AAA AA 
REM **Data** 

DATA 56,47,52,65,24,34,59,37,49,66 
DATA 38,24,62,76,31,47,66,61,74,45 
DATA 66,44,55,67,36,56,54,54,50,43 


DATA 18,83,23,79,29,—9999 Programa 1. Media aritmética 


Arithmetic Mean Program 
Average = 50.571429 


[K] Programa 1. 


Observa que muchos de los programas de esta unidad requieren introducción 
de datos; esto puede llevarse a cabo por la sentencia INPUT, o usando READ y DATA. 
En la mayoría de los casos, es más apropiado INPUT, pero hemos mostrado los dos 
métodos para los Programas 1 y 2. 


REM **Arithmetic Mean** 

PRINT "Arithmetic Mean Program” 
LET c=0 

LET s=0 

INPUT "Enter a no.: end list with —-9999 ”:n 
IF n=—9999 THEN GO TO 110 
REM **c is counter of inputs** 

LET c=c+1 

REM ”*s is sum of numbers input** 
LET s=s+n 

GO TO 50 

REM **Averaging** 

LET a=sfe 

PRINT 

PRINT c;” numbers input” 

PRINT 

PRINT "Average = "a 


STOP Programa la. Media aritmética 


¡K] Programa la. 


Ejercicio 1 


Escribe un programa para hallar el promedio de longitud de las palabras en 
la sentencia DATA del Ejemplo de la Unidad 5. Puedes conseguirlo integrando una 
rutina en el Programa 1 de la Unidad $, que ya halla la longitud de las palabras. 


Ejercicio 2 


Escribe un programa para hallar el promedio de puntos en un experimento si- 
mulado de lanzamiento de un dado 100 veces. 
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Simulación 
El promedio que se espera al lanzar un dado un gran número de veces es: 


F+2+3+4+5+6=21=3,5 
6 6 


Sin embargo, en nuestra ejecución de la respuesta al Ejercicio 2, sólo acertamos 
exactamente 3.5 una vez con valores en el rango de 3.24 a 3.76. Eso fue el resultado 
de 3,000 (30x 100) lanzamientos, por lo que te preguntarás si el número aleatorio 
es correcto. ¿Cuántos experimentos necesitamos para convencernos de si es o no 
es correcto? 

Para examinar esta cuestión en profundidad tenemos que introducirnos en la 
teoría de las estadísticas, que no es tema de este curso, pero al menos podemos hallar 
la media de esas medias. Lo que tenemos que hacer es tomar los «atos de 30 ejecu- 
ciones del programa: 


3.56,3.47,3.52,3.65,... 


e introducirlos en el Programa 1 anterior. Esto n”; da la media de las medias. 
Observarás más adelante que hemos introducido sólo la parte decimal de los 

números para hacer más fácil dicha introducción, es decir, 56 en lugar de 3.56. (Po- 

demos hacer esto porque todos los números tienen como parte entera un 3.) 


56,47,52,65,24,34,59,37,49,66, 
38,24,62,76,31,47,66,61,74,45, 
66,44,55,67,36,56,54,54,50,43, 
—9999 


RUN 

Arithmetic Mean Program 
30 numbers input 
Average = 51.266667 


Figura 3 


De esta forma, el promedio total de 3,000 lanzamientos es 3.51 —un poco más 
convincente! 


Resumen de simulación 

Simulación es una palabra muy pomposa para lo que hemos hecho. Sin embar- 
go, quisimos remarcar que podemos simular una actividad de la vida real sin necesi- 
dad de recurrir a estadísticas complejas. No podemos lanzar 3,000 veces un dado 
en la realidad, pero con un computador podemos coleccionar y procesar datos rápi- 
damente. 

Si te pica la curiosidad, intenta hacer estos ejercicios. 
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Ejercicio 3 

Escribe un programa para hallar el promedio de puntos en un experimento si- 
mulado de lanzar dos dados 100 veces. 

¿Qué esperarías como promedio en este caso, y en experimentos con 3, 4 ... 
dados? ¿Están justificadas tus esperanzas por tus experimentos? 


8.3 Rango 


Mientras comentábamos los resultados del Ejercicio 2, usamos la idea de rango. 
Hablamos sobre los valores en el rango de 3.24 a 3.76. El proceso implica el hallazgo 
de los valores máximo y mínimo del juego de números. 


Ejemplo 3 

Desarrolla un algoritmo y escribe un programa para hallar los valores máximo 
y mínimo de los números almacenados en las sentencias DATA del Ejemplo 2. Añade 
esta rutina al programa para hallar la media aritmética como solución al Ejemplo 2. 


Solución 

Te sonará familiar porque en la Unidad 4 hallamos el miembro más bajo de 
una lista. Podríamos emplear el mismo método, pero habría que introducir los datos 
en una lista y luego clasificarlos dos veces, mediante la rutina de intercambio. Esto 
es mucho trabajo, por lo que usaremos algo más corto: procurar hallar la puntua- 
ción más alta y más baja tal como se introducen los datos. 

Sabemos cómo introducir el dato, pero ¿qué hacemos con él? 


* Primero creamos dos almacenamientos: 
m para la puntuación más alta 
b para la puntuación más baja 

* Después introducimos la primera puntuacion (o la leemos de los datos) 
y la colocamos en ambas ubicaciones b y m. ¡Después de todo, ésta es la 
puntuación más alta y la más baja hasta el momento! 

e Luego introducimos (o leemos) cada puntuación y si es mayor que »m, la 
ponemos en zm o, si es menor que b, la ponemos en bh. Si no ocurre 
ninguna de las dos cosas, introducimos la próxima puntuación. 


Así, una solución descriptiva es: 
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Inicio de rutina. 

2. Si contador =1 entonces escribe la puntuación en mayor y menor y salta 
a 6, en caso contrario sigue en 3. 

3. Si la puntuación es superior a la mayor entonces escribe la puntuación en 
mayor y salta a 6, en caso contrario sigue en 4. 

4. Si la puntuación es mayor o igual a menor salta a 6, en caso contrario 
sigue en $5. 

5. Escribe la puntuación en menor. 

6. Fin de rutina. 


Figura 4 


Y un diagrama: 


70,80 
poner puntuación 
en menor y mayor 
poner 
menor = puntuación 
poner 
mayor = puntuación 
sumar la 160 
contador 
Figura 5 
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¿Qué encuentras más sencillo de seguir? 
Cuando hay varias bifurcaciones en un programa, el algoritmo descriptivo 
puede resultar confuso. La visión bidimensional del diagrama resulta más útil. 

Este es un tema de juicio personal. 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
185 
190 
200 
210 
215 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


RUN 
Max 


REM **Max and Min** 

PRINT "Mark Handling Program” 
REM **c=count of inputs** 
LET c=1 

REM **s=sum of inputs** 

LET s=0 

REM **Input next mark** 
INPUT "Next number ";:m 

PRINT m 

IF m=-—9999 THEN GO TO 280 
IF c>1 THEN GO TO 160 


o 


LET b=m ] 


LET t=m 


REM PROGRA AAA 


REM **main processing loop** 
F m>t THEN GO TO 210 ] 
F m>=b THEN GO TO 230 
REM **new bottom mark** 

LET b=m 

GO TO 230 

REM **new top mark** 

LET t=m 

REM RAEHAAAAA ARA AAAAR 
REM **increase count** 

LET c=c+1 

LET s=s+m 

GO TO 70 

REM RR no a 
REM **output results** 

CLS 

PRINT "Max = ”;t,"Min = ”;b 


REM ROSSO OOO A AA 


LET n=c—1 

PRINT 

PRINT "Average = ”;s/n 

STOP 

REM AR AA 
=:83 Min = 18 


Average = 50.571429 


Programa 2. 


Esta parte sólo se realiza la pri- 
mera vez, cuando c=1. 


Las decisiones se toman aquí. 


Programa 2 


La rutina de entrada en la panta- 
lla se ha omitido del listado de es- 
ta ejecución. 


He aquí una versión READ...DATA del Programa 2, como comparación. 


10 
20 
25 
30 
35 
40 
50 
60 
65 
70 
80 
90 
100 
105 
110 
115 
120 
130 
140 
145 
150 
1607 
165 
170 
175 
180 
185 
190 
195 
198 
200 
210 
220 
225 
230 
240 
250 
900 
910 
920 
930 


REM **Max and Min** 

CET c=1 

LET s=0 

REM **Read a value** 

READ m 

IF m=—9999 THEN GO TO 185 
IF c>1 THEN GO TO 100 

REM HAKRARAARRARRNRAAR A A 
REM **Set up initial vars** 

LET b=m 

LET t=m 

REM enano 
REM **Check for max/min** 

F m>t THEN GO TO 140 

F m>=b THEN GO TO 160 
REM **New min value** 

LET b=m 

GO TO 160 

REM **New max value** 
LET=m 

REM RARA RARARA RR RAR A 
REM **Total for average** 

LET c=c+1 

LET s=s+m 

GO TO 30 

REM RAEKKA AAA AAA AAA 
REM **Output** 

PRINT "Mark Processing:” 


PRINT 

PRINT "Max = ”;t, "Min = ";b 
REM Ron no 
LET n=c—1 

PRINT 

PRINT "Average = ”;s/n 

STOP 


a 


REM **Data** 


DATA 56,47,52,65,24,34,59,37,49,66 
DATA 38,24,62,76,31,47,66,61,74,45 
DATA 66,44,55,67,36,56,54,54,50,43 


DATA 18,83,23,79,29,—9999 


Programa 2a. 


Ejercicio 4 


Programa 2a 


Escribe un programa para dibujar una tabla de frecuencias para los datos del 


Programa 2, 


0-9, 


usando categorías: 


10-19, 20-29, ... 90-99 
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Sugerencia 
Podrías usar una lista de puntuación 


s(10), s(10), s(20), ... s(100) 


y por cada marca leída, probar si es menor que la mayor de la segunda banda (10), 
menor que la mayor de la tercera (20), etc. hasta que lo encuentres 


PUNTUACION < k verdadero 


entonces incrementas s(k-10); éste es el método que hemos usado (ver respuesta). 


8.4 Otras operaciones 


Hemos evitado las operaciones aritméticas complejas a lo largo del curso, y se- 
guiremos en esa línea. Pero sería erróneo no dar un vistazo a la capacidad aritmética 
del computador. No has de preocuparte por la complejidad de lo que sigue. 

He aquí un programa sencillo que calcula, para los números del 1 al 10, sus 
respectivos cuadrados (línea 50), cubos (línea 60) y recíprocos (línea 70), y luego 
tabula el resultado. 


1 REM **Tabulate the squares, 
2 REM cubes and reciprocals 
3 REM for the first ten 
4 REM natural numbers** 
5 PRINT TAB 3;"Squares cubes 4 reciprocals” 
6 PRINT PRRRa noo RARA ARA AAA 
8 PRINT 

10 PRINT "n”;TAB 5;"n*n”;TAB 12;"n*n*n”¡TAB 22;”1/n” 
20 PRINT 

25 REM **processing Loop** 

30 FOR i=1 TO 10 

35 REM **number** 

40 
45 
50 
55 
60 


LET n= 
REM **square** 
LETE=¡"1 
REM **cube** 
LET csi 
65 REM **reciprocal** 
70 LET r=1/i 


75 REM **Print** 

80 PRINT n;TAB 5¡s;TAB 12;c;TAB 22;r 

90 NEXT i 

95 REM **end of loop** 

100 STOP Programa 3 
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RUN 
Squares cubes 8 reciprocals 


FARRO 


n n*n n*n*n 1/n 

1 1 1 1 

2 4 8 0.5 

3 9 27 0.33333333 
4 16 64 0.25 

5 25 125 0.2 

6 36 216 0.16666667 
7 49 343 0.14285714 
8 64 512 0.125 

9 81 729 0.11111111 
10 100 1000 O. 


Programa 3. 


Elevación a potencias 
Esperamos que conozcas estas notaciones: 


4x4=4” (4 elevado a la potencia de 2) 
7x7x7=T7' (0 elevado a la potencia de 3) 
10x10x10x10x10=10* (10 elevado a la potencia de 5) 


En BASIC, elevar a una potencia se expresa como j en el Spectrum. 

Cualquier número n elevado a la potencia p se expresa como n t p. pes el 
exponente y elevar a una potencia se llama exponenciación. 

Similarmente para potencias negativas: 


n Pp ntp 
lxl=_1 =4” 4 2. 412) 
4 4 4x4 
lx lx l= l =7" 7 3 NE) 
7 7 7 7x7x7 
lLx1x1x1xl1= 1 =10 * 10. —6 101) 


10 10 10 10 10 10x10x10x10x10 


Las potencias fraccionarias (positivas y negativas) también son posibles, pero 
no vamos a considerarlas. 
Podemos usar la notación f en lugar de * en Programa 3. De esta forma el 
Programa 3 reescrito con f se convierte en: 
10 PRINT "n”;TAB 5;”nf2";TAB 12/"nf3";TAB 22np(=1)" 
20 FOR n=1 TO 10 
30 PRINT n;TAB 5:nf2;TAB 12n13;TAB 22:n] (1) 


40 NEXT n 
50 STOP Programa 4 
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RUN 


2 


2 0OJONADN 


0 


Secuencias y 


nj2 nj3 nt (1) 

1 1 1 

4 8 0.5 

9 27 0.33333333 
16 64 0.25 

25 125 0.2 

36 216 0.16666667 
49 343 0.14285714 
64 512 0.125 

81 729 0.11111111 
100 1000 0.1 
sus sumas 


El cálculo de los términos individuales de una secuencia, o la suma de los prime- 
ros n términos, es una labor compleja si no se dispone de un computador. ¿Cuánto 
tiempo necesitarías para evaluar los términos de 


1 


y 


1 Las 1.2 


y n? 


Bien, pues esto es muy fácil con el Programa $5. 


10 
20 
30 


PRINT "Series Calculation” 
PRINT 
PRINT "n" "nt (22)” 


40 REM **Start of processing loop** 
50 FOR n=1 TO 10 

60 PRINT n.nf(—2) 

70 NEXT n 

80 STOP Programa 5 
RUN 

Series Calculation 

n nt(=2) 

1 al 

2 0.25 

3 0.11111111 

4 .0625 

5 .04 

6 027777778 

7 .020408163 

8 .015625 

9 0.12345679 

10 .01 


Programa $. 


Ejercicio 5 
Escribe 


un programa para hallar cuántos términos de la serie 
LL 
2. 3 4 


son necesarios para que su suma exceda de 2.4. 
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Ejercicio 6 
Modifica el programa del Ejercicio 5 para hallar cuántos términos se necesitan 
para que su suma exceda de 1.5 


14141414... 


92 E 4? 


Ejercicio 7 
Los factoriales son muy interesantes. El factorial 4=4x3Xx2X1 y es usualmen- 
te expresado como 4! Así 


Factorial n = nx(n—1)x (n—2)x...x1 = n! 


Escribe un programa que evalúe el factorial de cualquier número entero positivo. 


8.5 Comprobación manual 


A menudo nos encontramos con que un programa no funciona en todas sus 
facetas o no lo hace a nuestra entera satisfacción. Entonces solemos sentarnos al 
teclado del computador y tratamos de descubrir el fallo, pero cuando todos los in- 
tentos fallan hemos de sentarnos ante un papel y un lápiz y dar vueltas a la cabeza. 
El seguimiento de un algoritmo, línea a línea con lápiz y papel es lo que denomina- 
mos comprobación manual. 

Nustraremos esto mirando el Programa 18, que era la solución al Ejercicio 5. 


10 REM **Sum of reciprocals** 

20 PRINT "How many terms in teh reciprocal series are 
needed, for the sum to exceed 2.4?” 

30 LETs=0 

35 LETn=1 

40 REM **start of processing loop** 

50 LET s=s+1/n 

60 IF s>2.4 THEN GO TO 90 

70 LET n=n+1 

80 GO TO 40 

90 REM **output** 

100 PFINT 

110 PFINT "Sum = ”:;s;” the no. of terms is ” ;n 

120 STOP Programa 18 (del Ejercicio 5) 


RUN 

How meny terms in the reciprocal 
series are needed, for the sum to 
exceed 2.4? 


Sum = 2.45 the no. of terms is 6 
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El seguimiento significa encontrar y registrar cada paso, el número de línea eje- 
cutado en ese paso y los valores de las variables después de la ejecución de esa línea. 
Así, para el Programa 18 necesitamos los encabezamientos: 


Línea n? 


Omitimos del seguimiento las líneas que no afectan a las variables, esto es: 


REM (línea 10) 
GO TO (línea 80) 
PRINT (línea 100) 


Aparte de éstas, los pasos del programa son los siguientes: 


Línea n? n 
1 30 0 
Z 35 1 
3 50 1 
4 60 l Observa el efecto de GO.TO 
5 70 2 40, línea 80 
6 2 
7 2 
8 3 ! otra vez GO TO 
9 3 
3 
4 ] LS GO TO 
4 
4 
5 j — GO TO 
5 
5 
6 ] =— — GO TO 
6 


Figura 6 


234 


Traceo 

Algunos intérpretes BASIC están provistos del comando TRACE, pero no así el 
Spectrum. Pero no representa una gran pérdida, ya que suele producir tanta infor- 
mación que los árboles no dejan ver el bosque. Resulta más rentable diseñar uno 
su propia rutina de traceo. veremos cómo se hace más adelante, en esta unidad. 


PF 2 

Haz un seguimiento manual del siguiente programa, empezando cuando se haya 
ejecutado la línea 20 y continuando hasta que la condición de la línea 60 sea verda- 
dera. Dibuja la tabla con los mismos encabezamientos que en el ejemplo anterior. 


10 **Sum of squares** 

20 LET s=0 

30 LET'n=1 

40 REM **add next term** 

50 LET s=s+n$2 

60 IF s>50 THEN GO TO 90 

70 LET n=n+1 

80 GO TO 40 

90 REM **output** 

100 PRINT "Sum of squares” 

110 PRINT 

120 PRINT "Sum = ”;¡s;” no. of terms is ";¡n 
130 STOP Programa 6 


8.6 La representación de los números 


A lo largo del curso hemos dejado pendientes una serie de cuestiones acerca 
de la representación de los números en nuestros programas. No intentamos conside- 
rar las matemáticas de representación numérica en los computadores, pero es necesa- 
rio atar algunas ideas sobre los números. 

En términos generales, los computadores pueden procesar y almacenar los si- 
guientes tipos de números: 


(a) números enteros positivos y negativos; 

(b) fracciones y números parcialmente enteros y parcialmente fraccionarios; 
(c) números muy grandes y muy pequeños; 

(d) el número cero. 


La advertencia más importante que podemos hacerte en este momento es que 
si un número está involucrado en cualquier clase de cálculo dentro de un programa, 
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debes considerarlo con precaución. La razón de esto es que los números en un com- 
putador son almacenados y manipulados en forma binaria, esto es base 2, en lugar 
de base 10, que es la que estamos acostumbrados a manejar nosotros. En notación 
decimal sabes que números como 1/3 no tiene una expresión exacta, es decir, 
1/3=0.3333... Sabemos que añadiendo tantos 3's como queramos, nos aseguramos 
más exactitud. En el sistema binario, del mismo modo, algunos números no tienen 
expresión exacta, por ejemplo, en formato decimal podemos decir que 1/10 = 0.1 
exactamente, pero cuando este número se cambia a formato binario no puede repre- 
sentarse con exactitud. 

La mayoría de los intérpretes de BASIC permiten que los números tengan una 
expresión de hasta seis dígitos decimales. En formato decimal, pues, el número 
3 1/10 podría representarse como 3.10000. Sin embargo, si este número ha sido el 
resultado de algún cálculo de computador, podemos encontrarnos que el número 
de salida sea 3.09999 ó 3.10001. Así, en general, debes sospechar del dígito menos 
significativo de la respuesta (el más a la derecha). 

El Programa 7 muestra cómo puede ocurrir este tipo de inseguridad. El bucle 
FOR ...NEXT añade 4.0, 4.1 y 4.25 en la ubicación s, f£ y u mil veces. Ahora 4.0 
y 4.25 estañ representados exactamente en formato binario, pero 4.1 no. Podemos 
ver que el resultado de esta suma repetitiva es exacta con respecto a 4.0 y 4.25 pero 
no para 4.1 donde el error es 0.02 en 4100.00. Obviamente, podemos evitar la escri- 
tura de programas que involucren tales repeticiones siempre que nos sea posible, pero 
esperamos que el programa actúe como advertencia ante posibles inseguridades. 


10 REM **Accuracy demonstration** 
20 LETs=0 
30 LET t=0 
40 LET u=0 
50 FOR i=1 TO 1000 
60 LET s=s+4.0 
70 LET t=1+4.1 
, 80 LET u=u+4.25 


90 NEXT i¡ 
100 PRINT s;TAB 8¡t:TAB 21;u 
110 STOP Programa 7 
RUN 
4000 4100.0002 4250 


Programa 7. 


Números grandes y pequeños 

Los seis a diez dígitos decimales en microcomputadores no nos permiten hacer 
frente a números muy grandes o muy pequeños. Por eso esos números se represen- 
tan en BASIC en forma exponencial. 
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Números pequeños 
0.000586321 significa 
586321 = 586321 
1,000,000,000 10? 
que podrían expresarse como 586321 x 10”. También podemos expresar 


0.000586321 como 0.586321 = 0.586321 x 10”. 
1000 


En BASIC, este último número se expresaría como 0.586321E-3. 


Similarmente, 


0.0234539 = 2,34539 x 10” = 2,34539E-2 


0.00000000959734 = 0.959734E-8. 


E es el exponente, y la base de la exponenciación es 10. Por eso E-4 quiere 
decir trasladar el punto decimal 4 lugares a la izquierda, y E +9 significa trasladarlo 
9 lugares a la derecha. 


Números grandes 
12368500 = 1.23685 x 10” = 1.23685E+7 
935.432 = 0.935432 x 10' = 0.935432E +3 
959734000000000000000 = 0.959734E +21 


La mayoría de los intérpretes BASIC tienen un rango de al menos E-32 a E+ 32. 


10 REM **Number demonstration** 
20 PRINT "Number”,”Representation” 


30 FOR ¡=—10 TO 10 

40 PRINT "109”;i,103 1 

50 NEXT i¡ Programa 8 
RUN 

Number Representation 
10—10 9, 9999999E—11 
10f—9 1E—9 

10f—8 1-8 

10f—7 1E—7 

10f—6 1E—6 

10f—5 00001 

101f—4 0001 

101—3 .001 

10f—2 01 

10—1 0.1 
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10po 1 


1011 10 

1012 100 
1013 1000 
1014 10000 
1015 100000 
1016 1000000 
1047 10000000 
1018 1E+8 
1019 1E+9 
10110 1E+10 


[K] Programa 8. 


8.7 Redondeo con la función INT 


Para algunos problemas necesitamos redondear el resultado de un cálculo al 
número entero más próximo. 


ejemplo 6.6 al próximo entero es 7. 
7.4 al próximo entero es 7. 
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La función INT (x+0.5) hace el redondeo, como demuestra el siguiente programa. 


10 
20 
30 
40 
50 
60 


REM **Int for rounding** 
PRINT "x"¡;TAB 10;"INT()”";TAB 20;"INT(x + 0.5)” 


FOR ¡=—1.4 TO —-2.5 STEP —0.1 
PRINT ¡TAB 10;INT ¡¡;TAB 20;INT (¡+0.5) 
NEXT ¡ 
STOP 
INTOo INT(x + 0.5) 
4 —2 —1 
—1.5 —2 —1 
6 —2 -2 
7 —2 —2 
8 —2 —2 
.9 —2 —2 
—2 —2 
| —3 —2 
57 —3 —2 
E —3 —2 
A —3 —2 
5 —3 —2 
6 —3 —3 Programa 9a 


Cambiando la línea 30 por 30 FOR ¡=1.4 TO 2.6 STEP .l da 
INTO INT(x + 0.5) 


0OXON- 


NNNN»N= a 
CNNNNNNNNNNN= 


ONA0V—= 


Xx 
1 
1 
1 
7 
1 
1 
2 
2 
2 
2 
2 
2 
2 Programa 9b 

P 


[KK] Programa 9a. 
PF 3 

¿Qué salidas obtendremos si cambiamos la línea 30 del programa anterior como 
sigue: 

(a) 30 FOR ¡=.4 TO 2.2 STEP .2? 

(b) 30 FOR ¡i=.4 TO —.6 STEP —.2? 


8.8 La función ABS 


Una función aritmética relacionada con las anteriores ideas es encontrar el valor 
absoluto de un número. Parece muy difícil, pero es sencillo. 


ABS(x) simplemente nos da el valor positivo de x. 
ejemplo ABS(23) = 23 
ABS(—23) = 23 


El siguiente programa ilustra la función. 


10 REM **The ABS function** 

20 PFINT "Using the ABS function” 

30 PFINT 

40 PRINT "xx": TAB 7;"y "¡TAB 14;"x+y";¡TAB 21;"ABS(x+y)" e 
45 PFINT 

50 REM **start of loop** 

60 FCRi=1 TO 4 

70 INPUT x 

80 INPUT y 

90 PFINT x;TAB 7;¡v¡TAB 14;x+y;TAB 21;¡ABS (x + y) 


100 NEXT ¡ Programa 10 
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RUN 
Using the ABS function 


Xx y x+y ABS(x + y) 
5 7 12 12 

5 7 =P 2 

8 7 2 

-5 A -12 12 


[K] Programa 10. 


PF 4 
¿Cuáles serán las salidas si introducimos 9,14,11,—2,—4,13,—7,—8? 


8.9 Iteración 


El proceso de pensar en un determinado valor, verificarlo, volver a pensarlo 
mejor, verificarlo de nuevo, etc. hasta acertarlo es conocido como iteración. La esencia 
de la iteración envuelve: 


e hacer un inicio arbitrario 
e comprobar la calidad del acercamiento 
e refinarlo en una secuencia de operaciones repetidas. 


Raíz cuadrada por iteración 
El BASIC puede hacer raíces cuadradas de forma directa, como demuestra 
este programa: 


10 REM **Direct square roots** 

20 FOR x=33 TO 63 STEP 10 

30 PRINT x;TAB TX pO.5;TAB 20;SQR x 

40 NEXT x Programa 1] 


(SQR x da la raíz cuadrada de x, suponiendo que x es mayor o igual a cero.) 


RUN 

33 5.7445626 5.7445626 
43 6.5574385 6.5574385 
53 7.2801099 7.2801099 
63 7.9372539 7.9372539 
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Sin embargo, te enseñaremos cómo hacer una raíz cuadrada por métodos itera- 
tivos no porque sea así como normalmente se vaya a hacer, sino como demostración 
de lo que es la iteración. 


El método 


Si quieres hallar la raíz cuadrada de un número n, entonces 


e suponte una raíz cuadrada, digamos g 


e divide n/g 


e la media de g y n/g está más cerca de la raíz cuadrada desconocida 
que tu primera suposición 
e vuelve al principio usando el nuevo valor. 


No podemos extendernos en esta teoría, porque no habría sitio en este libro, 
pero te lo vamos a mostrar en 


ejemplo sencillo. 


A raíz cuadrada n= 12 
Supuesto g=2 
División n/g=6 
Media g+n/g = 246 =4 
2 2 
Así 4 es el nuevo supuesto: 
Supuesto g=4 
n/g = 3 
g+n/g = 3,5 
2 
3.5 es el nuevo supuesto. 
En forma de tabla aparecería: 
g n/2 g+n/h 
2 
2 12/2=6 (Q+6)/2=4 
4 12/4=3 (4+3)/2=3.5 
3.5 12/3.5=... 


Figura 7 
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PF 5 
Para asegurarte de que has entendido la explicación, construye una tabla como 
la de arriba, pero empieza por el supuesto 1. 


Iteración ... stop 

La cuestión es: “¿Qué hacemos para parar el proceso?” Bueno, pararemos el 
procéso cuando nuestro supuesto se acerque lo más posible a n. ¿Qué significa lo 
más cerca posible? La respuesta te corresponde a ti. ¡Es tu responsabilidad! Depende 
de la exactitud que quieras obtener. Si, por ejemplo, queremos hallar la raíz cuadra- 
da de 12 con dos posiciones decimales, entonces la diferencia entre g*g y n tendría 
que ser menos de 0.005. . 

No necesitamos saber si g*g es mayor o menor que n —sólo importa la diferen- 
cia. Asi volvemos a ABS. Si 

ABS(n—g*g)<0.005 

pararemos después. 


Algoritmo descriptivo para la iteración de raíz cuadrada 
1. Inicio. 
2. Introducir número cuya raíz cuadrada se ha elegido. 
3. Introducir la precisión requerida. 
4. Introducir el supuesto de raíz cuadrada. 
5. Si el supuesto está dentro de la precisión requerida saltar a 8, caso con- 
trario continuar en la siguiente sentencia. 
6. Hacer el supuesto más exacto. 
7. Volver a $. 
8. Dar salida al valor de raíz cuadrada. 
9 


Parar. Figura 8 
20 3 50 


entrar 
el número 

para calcular 
raiz cuadrada 


entrar 
exactitud 
requerida 


70 


entrar un 
supuesto de 
raíz cuadrada 


es el 
supuesto 
bastante 
exacto ? 


muestra la 
raíz cuadrada 


haz un mejor 
supuesto 


Figura 9 Diagrama para 
la iteración de raíz cuadrada 
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10 REM **Square root— iteration** 

20 INPUT "No. for square-rooting?”;n 

30 PRINT "Number to be square-rooted” 
40 PRINT n 

50 INPUT "Accuracy required?”;a 

60 PRINT "Accuracy required ”;a 

70 INPUT "Your guess?”;g 

80 PRINT "Your guess is ”;g 

90 REM **start of iteration** 

100 IF ABS (n—g*g)<a THEN GO TO 130 
110 LET g=0.5*(g + (n/g)) 

120 GO TO 90 

130 REM **Output** 

140 PRINT 

150 PRINT "The square root of ":n 

160 PRINT "is .”;g 

170 STOP Programa 12. Iteración de raíz cuadrada 


RUN 

Number to be square-rooted 
12 

Accuracy required .**/ 
Your guess is 2 


The square root of 12 
is 3.4642857 


RUN 

Number to be square-rooted 
12 

Accuracy required .00005 
Your guess is 2 


The square root of 12 
is 34641016 


Programa 12. 


Traceo del proceso iterativo 

Ahora el resultado del Programa 12 no es muy espectacular. Como te dijimos 
antes, podemos hallar *n” directamente con el computador. Pero quisimos enseñar- 
te cómo trabaja la iteración y por eso veremos lo que está ocurriendo mientras se 
ejecuta ésta. Pondremos un traceo en el Programa 12, de la siguiente forma: 


85 PRINT 
86 PRINT "Old":TAB 10;"New";TAB 20;”ABS(n—g*g)” 
105 PRINT g; 

110 PRINT TAB 10:9:TAB 20;ABS (n—g*g) 


Cada paso alrededor del bucle (esto es, cada iteración), líneas 105 y 115 saca 
un reporte de los cálculos que se van haciendo. 
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10 REM **Square root- iteration** 
20 INPUT "No. for square-rooting?”;n 
30 PRINT "Number to be square-rooted” 


40 PRINT n 


50 INPUT ”Accuracy required?”;a 


60 PRINT "Accuracy required ” 


70 INPUT "Your guess?”;g 
80 PRINT "Your guess is ”;g 
85 PRINT 


86 PRINT "Old”;TAB 10;”New";TAB 20;”ABS(n—g*g)” 


90 REM **start of iteration** 


100 IF ABS (n—g*g)<a THEN GO TO 130 


105 PRINT g; 
110 LET g=0.5*(g +(n/g)) 


115 PRINT TAB 10;9,TAB 20;¡ABS (n—g*g) 


120 GO TO 90 
130 REM **Output** 
140 PRINT 


150 PRINT "The square root of ":;n 


160 PRINT "is ";g 
170 STOP 


Programa 13, lteración de raíz cuadrada con traceo 


RUN 

Number to be square-rooted 
12 

Accuracy required .005 
Your guess is 2 


Old New 

2 4 

4 US 

3,5 3.4642857 
The square root of 12 

is 3.4642857 

RUN 


Number to be square-rooted 
12 

Accuracy required .*0005 
Your guess is 2 


Old New 

2 4 

43.5 0. 24999999 
3.5 3. 4642857 
3. 4642857 3.4641016 


The square root of 12 
is 3 4641016 


Programa 13. 


ABS(n—g*g) 

4 sólo 3 bucles 
0.24999999 

0012755059 

ABS(n—g*g) incrementar la 

4 exactitud diez 
0012755059 veces sólo necesita 
2.6077032E—8 4 bucles 


RUN 
Number to be square-rooted . . 
—4 Si damos un número negativo 


Accuracy required .005 
Your guess is 2 


Old New ABS(n—g*g) 
2 0 4 
0 


6 Number too big, 110:1 


Dependiendo del tamaño del número, si introducimos un número negativo, bien 
el computador lanzará este mensaje 


6 Number too big, 110:1 (número demasiado grande) 
o el computador se hará un guirigay y habrá que abortar el programa con BREAK. 


Ejercicio 9 
cambie el programa de raíz cuadrada anterior para producir raíces cúbicas. Si 
g es un supuesto de raíz cúbica de n entonces 1/2(g + n/g”) será un mejor supuesto. 


Objetivos de la Unidad 8 


Calcular (manualmente) una media aritmética B 
Escribir un programa para calcular medias aritméticas a 


Escribir un programa para hallar el elemento 


más grande y más pequeño de una lista o 
Usar *,/ y f en programas B 
Seguir a mano la ejecución de un programa o 


O 


Interpretar números en notación E 


Usar INT(x+ .5) para redondear 


O 


Usar ABS(x) O 


Escribir programas para rutinas iterativas 
que incluyan procedimientos de finalización O 


Insertar líneas de traceo en un programa O 
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Respuestas a PF y Ejercicios 


PF 1 


Sum = 


8+4+2+6+1+7+6+1+4 = 39. 


Hay 9 números. 
La media aritmética es 39/9 = 4,333... 


Ejercicio 1 


10 
20 
30 
35 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
165 
170 


REM **Average Length** 

PRINT "Average length program” 
LET s=0 

LET c=1 

REM **Start of loop** 

INPUT "Next word”:;w$ 

PRINT w$ 

IF. w$="zzzz2" THEN GO TO 130 
LET I=LEN w$ 

LET s=5+l 

LETO=e+1 

GO TO 40 

REM Ro 
REM **Output** 

LET n=c—1 

LET a=s/ín 


PRINT "Average length of the words is” 


PRINT a;" characters” 
sTOP 


[K] Programa 14. 


Ejercicio 2 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 


REM **Mean of 100 throws** 
REM **of one die** 

PRINT "Throw one die 100 times” 
LET s=0 

REM **start of loop** 

FOR ¡=1 TO 100 

LET x= INT (6*RND + 1) 

LET 3533 +A 

NEXT ¡ 

REM **Output** 

PRINT 

PRINT "Average Score = ”;s/100 
sToP 


[K] Programa 15. 


Programa 14 


Programa 15 


Ejercicio 3 
10 
20 
30 
40 
50 
60 
70 
75 
80 
90 

100 
110 
120 
130 


Ejercicio 4 
10 
20 
30 
40 
56 
46 
48 
50 
51 
55 
80 
85 
90 

100 
110 
120 
125 
130 
140 
145 
147 
148 
150 
160 
163 
164 
165 
166 
167 
168 
169 
170 
180 
190 


REM **mean ot 100 throws** 
REM **of two dice** 

PRINT "Throw two dice 100 times” 
LET s=0 

REM **start of loop*"* 

FOR ¡=1 TO 100 

LET x=INT (6*RND + 1) 

LET y=INT (6*RND + 1) 

LET s=S+x+y 

NEXT ¡ 

REM **Qutput** 

PRINT 

PRINT "Average Score = ”;¡s/100 
sToP 


[K] Programa 16. 


REM **Frequency Table/Histogram** 
PRINT ” Histogram A 
DIM s(101) 

REM AKRKRARRRKRARA RARA AA AAA A 
PRINT 

PRINT "Data... (Range O—109)” 
REM ** Input loop** 

INPUT m 

IF m=-—9999 THEN GO TO 145 
PRINT m;” ” 

LETK=1P1 

REM **find range of data item** 
IF m<k THEN GO TO 120 

LET k=k+10 

GO TO 85 

REM **Store data in table** 
LET s(k—10) = s(k—10) + 1 

GO TO 48 

REM **output table* * 

PRINT 

PRINT "Table 

PRINT 

FOR k=1 TO 101 STEP 10 
PRINT k—1;"—"TAB 7;¡s(k);TAB 12; 
REM **Histogram loop** 

INK 1 

FOR p=1 TO sík) 

PRINT "W”; 

NEXT p 

REM **Histogram coamplete** 
INK O 

PRINT 

NEXT k 

sToP 


[K] Programa 17. 


Programa 16 


Programa 17 


247 


Las líneas 163 a 169 imprimen el histograma. 


A 


RUN using the data from Example 2. 
. . .Histogram 


Data... (Range 0-109) 

56 47 52 65 24 34 59 37 49 66 36 
24 62 76 31 47 66 61 74 45 66 4 

4 55 67 36 56 54 54 50 43 18 83 
23 79 29 

Table .. 


0 
10- 
20- 
30— 
40— 
50- 
60- 
70- 
80-— 
90- 
100— 


0020330 Az= O 


Programa 17. 


Ejercicio 5 
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A 


10 REM **Sum of reciprocals** 

20 PRINT "How many terms in the reciprocal series are 
needed for the sum to exceed 2.47” 

30: LETSS=0 

35 LETn=1 

40 REM **start of processing loop** 

50 LET s=s+1/n 

60 IF s>2.4 THEN GO TO 90 

70 LET n=n+1 

80 GO TO 40 

90 REM **output** 

100 PRINT 

110 PRINT "Sum = ”;s;” the no. of terms is ";n 

120 STOP 


RUN 

How many terms in the reciprocal 
series are needed, for the sum 

to exceed 2.4? 


Sum = 2.45 the no. of terms is 6 


Programa 18. 


Programa 18 


Ejercicio 6 


10 
20 


30 
35 
40 


RUN 
How 


REM **Sum of nt(—2)** 

PRINT "How many terms in the series nt(—2) are needed, 
for the sum to exceed 2.4?” 

LET s=0 

LET n=1 

REM **start of processing loop** 

LET s=s+nf(—2) 

IF s>1.5 THEN GO TO 90 

LET n=n+1 7 

GO TO 40 

REM **output** 

PRINT 

PRINT "Sum = ”:;s;” the no. of terms is ”;n 


sToP Programa 19 


many terms in the series 


nt (2) are needed, for the sum 
to exceed 2.4? 


Sum 
is 7 


= 1.5117971 the no. of terms 


Tú puedes, desde luego, cambiar la línea 60 para explorar el número de térmi- 
nos requeridos para que la suma exceda de otros valores, es decir 


60 IF s>1.6 THEN GO TO 90 


RUN 


Sum= 1. 6004969 No. of terms = 22 for 1.6 


60 IF s>1.61 THEN GO TO 90 


RUN 


Sum= 1.611039 No. of terms= 29 for 1.61 


60 IF s>1.62 THEN GO TO 90 


RUN 


Sum= 1.620244 No. of terms= 40 for 1.62 


60 IF s>1.63 THEN GO TO 90 


RUN 


Sum= 1.6301195 No. of terms = 67 for 1.63 


[K] Programa 19. 


Ejercicio 7 


10 
20 
30 


REM **Factorials** 
PRINT "Evaluate the factorial of any positive integer” 
PRINT 


249 


PF 2 


250 


RUN 


PRINT 

PRINT "n”,/n1” 

PRINT 

REM **next input** 

NPUT "Next factorial?”;n 

IF n=—9999 THEN GO TO 190 
LET f=1 


REM **factorial generation** 
FOR ¡=1 TO n 

LETT= PU 

NEXT ¡ 


REM **end of factorial loop** 
REM **output** 

PRINT n,f 

GO TO 75 

REM **all completed** 

STOP 


evaluate the factorial of any 
positive integer 


To end the run, enter —9999 


2 (00053 


1 


Step no. Line no. 


== — 


n! 

4 

6 

120 

5040 
362880 
39916800 


[K] Programa 20. 


o»s5 


20 
30 
50 
70 
50 
70 
50 
70 
50 
70 
S0 


— OV0N0 Dun 
NB wyunNnN-- 


PRINT "To end the run, enter —9999" 


Programa 20 


(a) x INTO) 
0.4 0 
0.6 0 
0.8 0 
1 o* 
1.2 1 
1.4 l 
1.6 1 
1.8 l 
2 2 

(b) x INT() 
0.4 0 
0.2 0 
0 0 
—0.2 —] 
—.0.4 —1 
—0.6 —1 

PF 4 


Usando la función ABS 


Xx y x+y 

9 14 23 

11 =2 9 

-4 13 9 

-7 -8 -15 
PF 5 

g n/g 

1 12 

6.5 1.8 

4.15 2.89 

3.52 3.41 


INT(x+0 5) 
0 
1 
l 
l * INTi=1 pero aquí es O debi- 
1 do a la inexactitud de compu- 
1 tación del ordenador. 
2 
2 
2 
INT(x+0 5) 
0 
0 
0 
0 
0 
—1 
ABS(x + y) 
23 
9 
9 
15 
g£+n/8g 
2 
6.5 
4.15 
3.52 
3.46 etc. 
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Ejercicio: 9 
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10 
20 
30 
40 
50 
60 
70 
80 
85 
90 
100 
110 
115 
120 
130 
140 
150 
160 
170 


REM **cube root- iteration** 

INPUT "No. for cube-rooting?”;n 
PRINT "Number to be cube-rooted” 
PRINT "is in 

INPUT "Accuracy required?”;a 

PRINT "Accuracy required ”;a 

LET g=n/2 

REM **computer's first guess at n/2** 
LET c=1 

REM **Start of iteration** 

IF ABS (n-9*g*g)<a THEN GO TO 130 
LET g=0.5*(g+n1(g*g) 

LETo=c+1 

GO TO 90 

REM **output** 

PRINT "The no. of loops = ”;c 
PRINT "The cube root of ";¡n 

PRINT "is ”;g 

sTOP 


Línea 70: el computador hace una primera suposición en n/2 


A 


RUN 


Number to be cube-rooted 


is 28 


Accuracy required .005 
The no. of loop = 14 
The cube root of 26 

is 3.0364096 


RUN 


Number to be cube-rooted 
is 10101 

Accuracy required 005 
The no of loops = 28 
The cube root of 10101 

is 21.616634 


RUN 


Number to be cube-rooted 
is —937 

Accuracy required 005 
The no. of loop = 21 
The cube root of —937 
is —9 7854198 


Programa 22. 


Programa 22 


UNIDAD 9 


Introducción al proceso de datos 


9.1 Introducción 
9.2 Clasificación 
9.3 Subrutinas . 
9.4 Búsqueda 
9.5 Tablas e E O a a 
9.6 Utilización de la impresora ZX . 
9.7 Líneas de programa de varias sentencias . 
9.8 Menús . O 
Objetivos de la Unidad 9 . . 
Respuestas a PF y Ejercicios . 


9.1 Introducción 


En esta unidad haremos énfasis otra vez de lo importante que es disponer los 
datos en alguna forma de clasificación. En particular, analizaremos en detalle un 
método de ordenación de los datos: el procedimiento de intercambio. Una vez orde- 
nados te mostraremos cómo buscar en ellos de forma rápida por el método dicotó- 
mico. Finalmente, te enseñaremos cómo manejar los datos en forma tabular. 

Estas actividades también nos darán la oportunidad de ver cómo nos pueden 
ayudar las subrutinas en aquellas tareas repetitivas que se presentan en programas 
de todo tipo. 


9.2 Clasificación 


En la Unidad 4 pasamos algún tiempo comentando el procedimiento para hallar 
el valor más pequeño en una lista de elementos. Lo hicimos por un procedimiento 
de intercambio que pone el elemento más pequeño en la posición 1 de la lista. Diji- 
mos que podíamos repetir el procedimiento con el resto de los elementos de la lista, 
situando el segundo valor menor en la posición 2, etc. Como el tema es importante, 
vamos a verlo con detenimiento. 


La Figura 1 ilustra el procedimiento para situar los elementos en las ubicaciones 
l a 5 con el menor de ellos en 1, el siguiente en 2, y así sucesivamente. 
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Posiciones 


1 2 3 
, posición de intercambio 


comparación 


4 
ñ 
AAA 


1 3 


2 5 
/ posición de intercambio 
A A a a a A 
Pp ] 


e baio 
el más bajo comparaciones 


3 4 5 
4 posición de intercambio 
siguiente ze E | 
más bajo 4 
1 2 5 


) comparaciones 


pS 


4 


1 posición de intercambio 


tos! EJ (Ed Ed ET EJ 
e AR comparaciones 


siguiente 
más bajo 


siguiente más bajo e | [-= el más alto 


Figura 1 Procedimiento de clasificación para una lista de 5 elementos. 


Primer paso. En el primer paso todos los elementos se comparan con el de la 
posición 1 y el menor de ellos ocupa esa posición. 


Segundo paso. La posición 1 se puede ignorar ahora y repetir el procedimiento 
desde la posición 2 a la 5. Esto es para hallar el siguiente menor y situarlo en la 
posición 2. 


Tercer paso. Ahora las posiciones 1 y 2 se pueden ignorar ya que contienen 
“el menor” y “el siguiente menor”. El procedimiento se repite para las posiciones 3 a 5. 
Esto halla el tercer menor, que irá a la posición 3. 


Cuarto paso. Se realiza sólo para los elementos 4 y 5 y el resultado es que el 
cuarto menor va a la posición 4. El elemento restante es forzosamente el mayor y 


ya está colocado en su sitio. 
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Podemos resumir el procedimiento de clasificación como: 


resto de sub-secuencias 


bucle punto de 
número intercambio 


1 
2 
3 
4 


Figura 2a Ordenamiento de una lista de 5 elementos. 


O, más generalmente, si queremos ordenar una lista de n elementos: 


bucle punto de resto de sub-secuencias 
número intercambio inicio 


Figura 2b (n-1) Ordenamiento de una lista de n elementos. 


Como cada paso requiere una serie de comparaciones repetitivas, es obvio que 
se necesita un bucle FOR... NEXT. Luego necesitamos otro bucle para decidir qué 
bucle vamos a ejecutar: 
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FOR k = 1 TO n-1 *———————— Determina posición de intercambio 


FOR |=k+1 TON <-———————— Determina la sub-secuencia para el 
intercambio 


proceso de 
intercambio 


ll 


NEXT | 
NEXT k 


Figura 3 Bucles anidados para ordenamiento por intercambio. 


PF 1 
Utiliza el ordenamiento por intercambio para clasificar lo siguiente. Muestra 
los números almacenados en cada ubicación después de cada pasada. 


6, 1,4, 0,2,3,7, 8 


El bucle externo decide el pun- 


El programa es: to de intercambio 
210 REM **Sort Routine** O El eco decide la sub- 
220 sec 


FOR k=1 TO n—1 

230 FOR I=k+1 TO n E 

240 IF x$(1)> =x$(k) THEN GO TO 275 

250 LET t$=x8(l) 

260 LET x$(1) = xS(k) 

270 LET x$(k) =1$ 

275 REM **jump to here if items under 
scrutiny in right order** 

280 NEXT | 

290 NEXT k 

300 REM **End of sort routine** 


Si el elemento en la subsecuen- 
cia es > = que el elemento en 
la posición de intercambio en- 
tonces no se intercambian 


El “motor” de la rutina 


Programa 1. Ordenamiento por intercambio 


Uso del programa de clasificación 
El programa de clasificación se puede usar siempre que sea necesario. He aquí 
un caso particular: clasificar una lista de nombres en orden alfabético. 


líneas 50 a 100 lectura de datos 
líneas 210 a 300 clasificación 
líneas 410 a 460 impresión de la salida 
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258 


A 


Final 
Joe 


PRINT "aora Sort Routine.......... 
PRINT 

REM **Data Max Length = 6** 

DIM x$(20,6) 

LET ¡i=1 


REM **Data Input** 
INPUT "Next Data? ”;x$(i) 
PRINT x8$(1) 

IF. x$(i)="zzzz ” THEN GO TO 185 
LET ¡=i+1 

GO TO 55 

REM RR na ooo on 
REM **Length of list** 

LET n=i—1 

REM KAAKAK AAA RARA AAA 
REM **Sort Routine** 

FOR k=1 TO n—1 

FOR I=k+1 TO n 

IF x$(1(> =x8$(k) THEN GO TO 275 
LET t$ =x3%(1) 

LET x$(1) =x$(k) 

LET x$(k) =1$ 

REM **jump to here if items under 
scrutiny in right order** 

NEXT 1 

NEXT k 

REM **End of sort routine** 


REM oo AAA A 


Lectura de los datos 


Rutina de clasificación 


PRINT 

PRINT "Final Sorted List” 

FOR p=1 TO n 

PRINT x$(p);” ”; Impresión del resultado 
NEXT p 

PRINT 


REM + AAA 


Programa 2. Uso de la rutina de clasificación 


Sorted List 
Pete Sam Tony 


Programa 2. 


9.3 Subrutinas 


Al llegar a esta etapa sabrás distinguir el bosque entre los árboles. Verás que 
los programas tienen una estructura general y que éstas se ensamblan con pequeñas 
porciones. Es muy usual descomponer los programas en sus partes constituyentes, 
y escribir y probar cada parte por separado. Ciertas operaciones se repiten a menudo 
a lo largo de un programa. La estructura de un programa se puede simplificar inclu- 
yendo esas operaciones repetitivas como subrutinas. 

Hlustraremos las subrutinas, echando un vistazo final al procedimiento de clasi- 
ficación. Vamos a insertar dos líneas extras de traceo en el programa para ver lo 
que va sucediendo en cada uno de los tres pasos de la rutina de clasificación: 


Rutina de clasificación Traceo a mostrar 

1. Entrada Los datos, tal como han entrado 

2. Clasificación Los datos, después de cada sub-secuencia 
3. Salida Los datos finales, clasificados 


La Figura 5 muestra la estructura total y cómo podemos usar una subrutina 


PRINT para las tres operaciones PRINT. 


inicio 


“ENTRADA” 


go sub 
LP -0 


“CLASIFICACION” 


go sub 


SUBRUTINA 
DE IMPRESION 


retorno 


Figura 5 Subrutina PRINT en el programa de clasificación. 
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GO SUB 
En el BASIC del Spectrum, para bifurcar a úna subrutina decimos: 


GO SUB 


seguido del número de línea donde comienza la subrutina. Cada rutina debe finalizar 
con la sentencia 


RETURN 


que retorna el control a la siguiente línea del cuerpo principal del programa después 
de la sentencia GO SUB que la llevó a ella. Así, en el siaguiente programa la línea 
30 transfiere el control a la línea 200, y las líneas 200 a 210 se ejecutan. Luego la 
220 retorna el control a la línea 40 para que el programa continúe su ejecución normal. 


10 INPUT a 

20 INPUT b 

30 GO SUB 200 
49 LETs=a+b 
BO mo. 


200 PRINT "a”,"b” 
210 PRINT ab j==— GO SUB 200 
220 RETURN 

PF 2 


¿Qué valor tiene b después de haberse ejecutado el programa: (a) si la entrada 
es 5; (b) si la entrada es 3? 


5 REM **SAQ 2** 


10 INPUT a 
20 IF a<5 THEN GO TO 35 
30 GO SUB 70 


35 REM **jump to here** 

40 LET b=a*a 

50 PRINT b 

60 STOP 

70 REM **subroutine** 

80 LET a=1/a 

90 RETURN Programa 3 


He aquí el programa de clasificación con una subrutina de impresión (líneas 
500-550) que se usa cada vez que el programa ejecuta la línea 195, línea 280 y línea 430. 


10 PRINT Uco Sort AOUtINe ..+ms o... dé 
11 PRINT 
15 REM **Data Max Length = 6** 
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30 

50 

55 

60 

70 

80 

90 
100 
180 
185 
190 
191 
192 
193 
194 
195 
196 
200 
210 
220 
225 
227 
230 
240 
250 
260 
270 
275 


280 
285 
287 
290 
300 
400 
410 
420 
425 
430 
450 
500 
510 
520 
530 
540 
550 


DIM x$(20,6) 

LETi=1 

REM **Data Input** 

NPUT "Next Data? ":x$(1) 

PRINT x5(i) 

F x$(1)="zzzz ” THEN GO TO 185 
LET i=i+1 

GO TO 55 

REM RR OSOS 
REM **Length of list** 

LET n=i—1 

PAUSE 100 

CLS 
PRINT "List at start” 

PRINT Repo oboonnar 

GO SUB 510 - Primer traceo 
PRINT 

REM KARKKKAAAAARKA RARA 

REM **Sort Routine** 

FOR k=1 TO n—1 

PRINT "Pass no. ";k . 

PRINT Reconoce 

FOR I=k+1 TO n 

IF x$(1)> =x$(k) THEN GO TO 275 

LET t$=x3$(1) 

LET x3(1) = x$(k) 

LET x5$(k) =1$ 

REM **jump to here if items under 

scrutiny in right order** 

GO SUB 510 Segundo traceo 
NEXT | 

PRINT 

NEXT k 

REM **End of sort routine** 

REM no a 

PRINT 

PRINT "Final Sorted List” 

PRINT IEEE ERE AEREA EDAD 

GO SUB 510  «— Salida 
STOP 

REM **Print subroutine** 

FOR p=1 TO n Subrutina 
PRINT x$(p);" "; 

NEXT p 

PRINT 

RETURN 


Programa 4. Subrutina de impresión en programa de clasificación 


RUN 
List at start 


RARHARARRRA 


Tony Sam Pete Joe Bill 
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Pass no. 1 


KARA AA 


Sam Tony 


Pete Tony 


Joe Tony 
Bill Tony 
ia 
Bill Sam 
Bill Pete 
Bill Joe 
a 

Bill Joe 
Bill Joe 
ES 

Bill Joe 
OS 
Bill Joe 


Ejemplos de subrutinas 


El propósito de la subrutina es simplificar y acortar la longitud de los progra- 
mas. Necesitamos un programa donde la misma función se repita en diferentes pun- 


tos del programa. 


Ejemplo 1 


El juego de dados puede servirnos. Un par de dados se lanza dos veces y se 
anota el total de puntos en cada lanzamiento. Si las dos puntuaciones coinciden el 
juego se acaba. Si son diferentes, se lanzan otra vez. Escribe un programa para si- 
mular el juego y que imprima el número de lanzamientos requeridos para conseguir 


Pete 
Sam 
Sam 


Sam 


Tony 


Tony 


Tony 


Sam 


Pete 


Pete 


Pete 


Joe 
Joe 
Pete 


Pete 


Pete 


Sam 


Sam 


Tony 


Tony 


Sam 


Sam 


Bill 
Bill 
Bill 


Joe 


Joe 


Joe 


Pete 


Pete 


Sam 


Tony 


Tony 


la misma puntuación y qué puntuación es ésta. 


5 REM **Dice game simulation** 
10: PRINT Mame 2 Equal Throws 


15 PRINT 


30 LET<=1 
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35 
40 
50 
55 
60 
70 
80 
90 
95 
100 
105 
110 
120 
130 
135 
140 
150 


REM**1st Throw** 

GO SUB 120 

LET s1=s 

REM **2nd Throw** 

GO SUB 120 

LET s2=s 

IF s1=s2 THEN GO TO 100 
LET c=c+1 

GO TO 35 

REM **Printout** 

PRINT "Equal Score ”;s1;” 
SsTOP 

REM **Dice rolling subroutine** 
LET d1=INT (6*RND + 1) 

LET d2=INT (6*RND + 1) 

LET s=d1+d2 

RETURN 


ae 2 Equal ThrowS......... 


Laa ie 2 Equal ThrowsS......... 


A 2 Equal ThrowS......... 


te ind 2 Equal 


O 2 Equal ThrowS......... 
Equal Score 8 in 25 throws 


Ejercicio 1 
(a) Escribe un trozo de programa para imprimir una línea de 32 guiones en 


la pantalla. 


in %c;” throws” 


La subrutina produce general- 
mente valores diferentes de s 
para el programa principal 


Subrutina 


Programa 5. Simulación de dados 


(b) Escribe una línea de programa para imprimir 'submarine' 0 < = >, en cual- 
quier punto de la pantalla o impresora, siendo la variable s la que determi- 


ne la posición. 
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(c) Escribe un programa para imprimir en sucesivas líneas: 
(i) una línea de guiones; 
(ii) un submarino en cualquier sitio; 
(iii) otra línea de guiones; 
las líneas impresas en (i) y (iii), con subrutina. 


Ejercicio 2 

La solución del Ejercicio 1 nos ha dado un submarino en un canal. Escribe 
un programa para generar un número aleatorio entre 1 y 30. El submarino -ocupará 
las tres últimas posiciones del recorrido (30,31,32). Usa el número aleatorio para 
imprimir el submarino en posiciones aleatorias en el canal. 


Ejercicio 3 

La esencia del juego que vamos a practicar con la máquina proviene del Ejerci- 
cio 2. El computador genera un número aleatorio y te invita a encontrar el submari- 
no adivinando un número entre 1 y 32. Si adivinas la posición, esto es entre s y 
s+2 si ses el número aleatorio (recuerda que el submarino ocupa tres posiciones), 
entonces la máquina registra una 'diana' y el juego se acaba. Si no lo encuentras, 
la máquina registrará un “fallo” y te invita a un nuevo intento. Escribe un programa 
que lo haga. 

(Te aconsejamos que escribas el programa con la opción de finalizarlo antes 
de que encuentres el submarino, porque si no, puede ser larguísimo.) 


9.4 Búsqueda 


El problema del submarino nos da un buen tema de comentario acerca de bús- 
queda de datos. La única forma metódica de encontrar el submarino era buscar en 
el canal, posición a posición, empezando por un extremo. Habría sido más sencillo 
dejar que el programa nos orientase con 'demasiado alto' O 'demasiado bajo", después 
de cada adivinanza. No dudaríamos en movernos hacia la parte más conveniente. 

Similarmente, si los diccionarios, guías telefónicas, enciclopedias y catálogos de 
libros no estuviesen en orden alfabético, piensa lo difícil que sería encontrar la infor- 
mación que nos interesa. 

Pero si nos hemos tomado la molestia de ordenar adecuadamente, en secuencia 
numérica o alfabética los datos, necesitamos una técnica de búsqueda de los mismos 
lo más eficiente posible. Si consultamos un diccionario o una guía de teléfonos bus- 
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cando un dato, no empezamos a buscar por la primera página y vamos pasando 
una a una hasta encontrarlo. Si el dato empieza por “P”, abrimos la guía por esta 
letra y comenzamos a buscar por ese punto. 


Búsqueda dicotómica 
Un “palo de ciego” es un término demasiado impreciso para un computador. 
Sin embargo podemos especificar puntos de adivinanza como sigue: 


e dividir el rango de elementos por la mitad y preguntar “¿el elemento que se 
busca está por encima o por debajo de este punto?”; 


si está por debajo se define un nuevo rango, siendo el límite superior el ele- 
mento del medio; 


e si por encima entonces el elemento del medio es el límite inferior; 


* en cualquiera de los dos casos, despreciamos el rango antiguo y repetimos 
nuestra bisección en el nuevo rango. 


Así que la búsqueda dicotómica es, en líneas generales: 
¿Existe el 7 en la lista 1,2,3,4,5,6,7,8,9,10? 

Lista en orden: 1234567809 u10 
¿Es 7 = elementc medio? No. 


¿Es 7 el elemento medio? No. 
El 7 está en la mitad alta. 


Nuevo rango 6 7 8 9 10 
¿Es 7 = elemento medio? No. 

¿Es 7 el elemento medio? Sí. 

Nuevo ran,zo 6 7 8 

¿Es 7 = esemento medio? Sí. 


El 7 está en la lista. 


Esto ilustra el principio de la dicotomía pero en la práctica necesitamos distin- 
guir entre los valores de los elementos de la lista y los índices de los mismcs. 


265 


Ejemplo 2 

Una lista ordenada contiene los elementos A, F, 1, M, T, U, Z. Usa el procedi- 
miento de búsqueda dicotómica para saber si la P está en la lista. 

Llamamos a P, Petición —el valor que buscamos. 


Indice 1 2 3 4 5; 6 7 8 
Elemento A F I M P T U Z 
Indice inicial Bajo (1) : Alto (8) 
indice medio, Int(1 +8)=4 : 

2 Medio(4) 


es Petición = elem. (4)? no! 
Comparaciones | es Petición < elem. (4)? no! 
índice (4) pasa a ser Bajo 


Indice 4 5 6 7 8 
Elemento M P T U Z 
Indice inicial Bajo (4) Alto (8) 
Indice medio, Int(4+ 8) = 6 : 
2 Medio (6) 
es Petición = elem. (6)? no! 


Comparaciones | es Petición < ceiem. (6)? sí! 
índice (6) pasa a ser Alto 


Indice 4 5 6 
Elemento M P T 
Indice inicial Bajo (4) : Alto (€) 
Indice medio, Int(4+ 6) = 5 ; 

2 Medio (5) 


1 


Comparación | es Petición = írdice (5)? sí! 


Figura 6 Búsqueda dicotómica. 


Ejercicio 4 

Lleva a cabo la búsqueda dicotómica sobre la lista del Ejemplo 2, pero buscan- 
do la letra 1. 

Sólo tuvimos que hacer tres comparaciones para situarnos en el elemento *P”, 
pero fueron un tanto pesadas comparándolas con una búsqueda directa, elemento 
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por elemento de la lista. La efectividad de este método no es realmente aparente 
en listas cortas. Demostraremos su potencia en la búsqueda de largas listas pero an- 
tes vamos a terminar de perfilarlo. 


Algunos problemas con la búsqueda dicotómica 
(a) Cómo parar 


Ejemplo 3 

Realiza el mismo procedimiento, pero buscando la letra *Q”. 

El método sería exactamente el mismo antes de llegar a la tercera comparación, 
punto éste en donde reemprendemos la historia. 


Petición = Q 


Indice 4 5 6 
Elemento M P T 
Indice inicial Bajo(4) .Medio (5)Alto(6) 
Indice medio, Int(4+6) = 5 
2 
es Petición = elem.(5)? no! 


Comparaciones es Petición < elem.(5)? no! 
índice(S) pasa a ser Bajo 


Indice 4 5 6 
Elemento P T 
Indice inicial Bajo(5) Medio (5)Alto(6) 
Indice medio, Int(5+6) = 5 
2 
es petición = elem.(5)? no! 
Comparaciones es Petición < ..... lo hemos hecho antes?! 


No parece que seamos capaces de terminar. Q no está allí, pero estaremos conti- 
nuamente buscándola entre P y T. Ya nos hemos topado con el problema de parar 
el proceso en el último ejemplo. Si los índices Bajo y Alto llegan a ser adyacentes, 
y Petición no se encuentra, entonces Petición no está en la lista. Este es el final 
y salida de la búsqueda. Por esto el final es cuando Petición no se encuentra o cuan- 
do los indices Bajo y Alto son adyacentes (Alto - Bajo = 1). 


(b) Cómo empezar 

Hacemos Indice(1) = (Bajo) e Indice(n) = Alto. Puede haber problema si el ele- 
mento(1) y el elemento(n) no fuesen los dos valores extremos posibles. 

Por ejemplo, considera la siguiente lista que no incluye letras antes de C o des- 
pués de S: 
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GLOSARIO 
Todos los términos están defi- 
nidos en el texto precedente. 


500 


encontrado” 


320 


l 300 


N 
take lower half 


1 2 3 4 5 
C F G P S 
Bajo Alto 
Si Petición fuese A o B o mayor que S, el proceso no funcionaría. 
Pongamos el algoritmo en forma de diagrama. 
N elementos 
de datos 
en una lista 
220 
Bajo — 1 
Alto — N 
A el 
230 
T 
— — — + 
240 
calcular 
Medio 
| 
A 
! 
280 
A 
N 
A, E — 
take upper half 
Figura 7 Diagrama de búsqueda dicotómica. 
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605 
610 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1050 


Todo lo que hemos de hacer es escribir el programa: 


10 
15 
20 
30 
40 
45 
50 
55 
60 
70 
80 
90 
100 
105 
110 
150 
200 
210 


REM **Bisection Search** 
CLEAR 

DIM n$(20,6) 

DIM t$(20,4) 

LETi=1 

REM **Read in name £ no.** 
READ n$(i) 

READ t$() 


LET i=i+1 

GO TO 45 

REM POROS 
LET n=i 

REM **we found an ”*” this time** 
REM KR AA RM RR A A A RR 
INPUT "Query name? ”;q$ 

REM **start of search** 

PRINT ” "¡TAB 5;” h"¡;TAB 10;" m”; 
TAB 15;"n$(m)” 

LET I=1 

LETh=n 

REM EKKKARAA AAA ARA AAA A A 

IF h-l=1 THEN GO TO 500 

LET m=INT ((1+h)2) 

PRINT I;TAB 5;¡h;TAB 10¡m;TAB 15;n$(m) 
IF q$ = n$(m) THEN GO TO 320 

IF qs$<n$(m) THEN GO TO 300 

LET I|=m 


220 
225 
230 
235 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
350 
500 


TO 230 


**Name not found** 

510 PRINT q$;” is not in the list” 

600 REM **Continue or not?** 
INPUT "Do you wish to look for another name? 
IF. r$="yes” THEN GO TO 110 
REM **Data list** 
DATA "aaaaaa”,”0000” 
DATA "Barrow”,”1234" 
DATA "Copper”,” 9832” 
DATA "Draper ”,” 1980” 
DATA "Edward”,”7294" 
DATA "Gwynne”,"5821” 
DATA ” Hettie” "8632" 
DATA ” Morley”, ”7832” 
DATA ” Peters ”,”1393" 
DATA "Smythe”,”1147” 
DATA ”Weekes”,”5529” 
DATA ” Wilson ”,”9936" 
DATA "*ended”, 9999” 
sTOP 


Línea 60; verificación del pri- 
mer carácter de n$(i) para ver 
si es un asterisco (*), como se- 
ñal de fin de archivo. 


IF n8(i) (1)="*" THEN GO TO 90 pa 


$ 


Programa 6. Búsqueda dicotómica 
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HUN 


| h m n$(m) 

1 13 7 Hettie 
7 13 10 Smythe 
7 10 8 Morley 
Morley's tele no. is 7832 

| h m n$(m) 

1 13 7 Hettie 
7 13 10 Smythe 
10 13 11 Weekes 
11 13 12 Wilson 
Wilson's tele no. is 9936 

| h m n$(m) 

1 13 7 Hettie 
7 13 10 Smythe 
10 13 11 Weekes 
11 13 12 Wilson 


Weeks is not in the list 


9.5 Tablas 


Cuando queremos almacenar mucha información hay varios métodos a elegir. 
Uno es usando listas (ver Unidad 4), llamadas a veces series unidimensionales. Un 
segundo método es usar tablas de series bidimensionales. 

Suponte que quieres almacenar los siguientes datos: 


Venta de coches 


Servicios 


Carburante 


Figura 8 Impuestos para Servicios de Autopistas (en miles de libras). 


Ahora puedes construir la lista, pero te resultará difícil de manejar. Los prime- 
ros cuatro elementos serían los impuestos por venta de coches, los siguientes cuatro 
por servicios, etc. Alternativamente, tendrías que tener tres listas: una para venta 
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de coches, una para servicios y otra para carburante. Pero el BASIC del ZX Spec- 
trum te permite tener una tabla de dos dimensiones denominada por cualquiera de 
las 26 letras del alfabeto, sean minúsculas o mayúsculas, es decir 


t(,) P(,) 
Comparación de listas y tablas 


Las listas necesitan un índice para describir la posición en la lista. Las tablas 
necesitan dos, llamados usualmente subíndices. 


Lista 
IMD) IG) ... 1D ... 


el indice de este elemento = 3 


Serie 
ai) a(1,2 ad) 
aQj1) aj)  a(,3) 
al) az a3,3) este elemento necesita dos subíndices: 
3 para indicarnos la fila 3; 
2 para indicarnos la columna 2. 
Tablas 


e Una tabla debe contener todo strings (variables de caracteres) o todo varia- 
bles numéricas. (Los números, por supuesto pueden estar almacenados como 
strings, y sus valores hallados por la función VAL.) 

e Usamos una de las 26 letras para describir la tabla como un todo, es decir, 
tabla a, tabla b$, tabla $m. 


Generalmente, una tabla comprende: 


Figura 9 Filas y columnas de una tabla. 
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Para los datos de la estación de servicio, f necesita 3 filas y cuatro columnas 
y así contiene 12 elementos: 


t(1,D 1,2)  t(1,3) -t(1,4) 
t(2,1) tQ,) tQ,33)  1(2,4) 
t3,1)  tB,2) 1,33)  1G,4) 


Así 


(2,1) = 10 
t(3,3) = 50 etc. 
Esto es muy similar a la idea de tabla que viste previamente. Allí decíamos que 


un archivo consiste en una serie de registros, cada uno de ellos consistía en campos. 
En formato de tabla aparecería así: 


po 1 apo 
Número de teléfono 


Registro 1 
Registro 2 
Registro 3 
Registro 4 


O, más generalmente: 


A E O O 


Registro 1 
Registro 2 


Registro 3 


etc. 


Si la tabla de números de teléfonos se llama t$ entonces el elemento individual 
será referenciado: 
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Registro 1 t$(1,1) = Benny t$(1,2) = 1234 


Registro 2 t$(2,1) = Copper t$(2,2) = 9823 
Registro 3 t$(3,1) = Draper 1$(3,2) = 1950 
Registro 4 t$(4,1) = Eddie t$(4,2) =7294 


e La tabla completa se llama t$. 

* Cada elemento de la tabla se describe por dos subíndices. Entonces 1950 (32 
fila, 2? columna) es 
t$(3,2) 

e El 3 y el 2 describen la posición del elemento t$(3,2), no su valor. Su valor 
es 1950. 


Por eso decimos 
1$3,2) = 1950 


En general 


tS(r,c) 
Subíndice Úe A de columna 


Ejemplo 4 
Esta tabla n$ tiene 9 valores como se ve. ¿Cuáles son sus nombres de variables? 


R 
ní(,) 
Solución 
Benny = n5(1,1) Copper = n$(1,2) Draper = n$(1,3) 
Eddie = n$(2,1) Gwynne = n$(2,2) Hetty = n$(,3) 
Morley = n$(3,2) Prosser = n$(3,2) Smythe = n$(,3) 
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PF 3 


En la siguiente tabla a$ identifica las variables y sus valores, como en el Ejem- 


plo 4. 


DIM para series 
Series numéricas. 


para almacenar la tabla 


Archer Benny Copper 
Draper Eddie Frame 
Gwynne  Hetty Kemp 
Lamb Morley Noakes 
Prosser Smythe Tait 


Si quieres una serie numérica bidimensional, debes decirle 
al computador el tamaño que tendrá por medio de la sentencia DIM, por ejemplo 


4 columnas 


a() = 


Tabla para 12 


números 


insertas 


DIM a(3,4) 


L___ columnas 


filas 


en el programa antes de usar a( ). 


3 filas 


Series de strings. Se aplica lo mismo para series bidimensionales de strings pero, 
como en las listas de strings, debes decidir la máxima longitud del string. Así para 


almacenar la tabla 


4 columnas 


a( )= 


| Tabla para|strings 


de long. máxima o 


necesitas decir 
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DIM a$(3,4,10) 


| 3 filas 


longitud máxima de string 


| E 
columnas 
filas 


Tablas y bucles anidados 

Si los bucles FOR. ..NEXT y las listas parecen estar hechos uno para el otro, mu: 
cho más lo están los bucles FOR...NEXT anidados y las tablas. 

Por ejemplo, suponte que quieres leer: 


Archer,Benny,Copper, Draper,Eddie, Frame, Gwynne,Hetty,Kemp,Lamb, 
Morley,Noakes,Prosser,Smythe,Tait, Weekes 


dentro de la tabla n$, con 4 filas y 4 columnas. (Necesitamos una serie de string, 
puesto que estamos almacenando caracteres.) Puede hacerse con una sentencia IN- 
PUT en dos bucles anidados: 


60 
70 
80 
82 
83 
90 
100 


FOR ¡=1 TO 4 

FOR j¡=1 TO 4 

INPUT "Next input? ”;nS(i,j) 
PRINT n$(,)); 

PRINT TAB 30;4*(1-1)+j 
NEXT j 

NEXT ¡ 


Este proceso se lleva a efecto por completo en las líneas 10 a 100 del Programa 7. 

Está muy bien eso de llenar una tabla pero, desde luego, no sabemos el resulta- 
do hasta que la imprimimos. La segunda parte del programa imprime los valores 
de la tabla en una columna con ¡ y ¡ acompañándolos para que puedas ver con clari- 
dad cómo se usan i y ¿. 


5 
10 
15 
20 
30 
40 
60 
70 
80 
82 
83 
90 
100 
110 
111 
112 
113 
115 
116 
130 
140 
150 
160 
180 
200 


REM **4 x 4 Array** 


PRINT "..... Table Input and Print..... L 
PRINT 
PRINT "Table set up tor 16 inputs...” 


DIM n$(20,5,7) 

REM ** Input Routine** 

FOR i=1 TO 4 

FOR ¡=1 TO 4 

NPUT "Next input? ";¡n$(i,j) 
PRINT n$(i,); 

PRINT TAB 30;4*(i-1)+j 

NEXT j 

NEXT i 

REM **Print Routine** 

PRINT 

PRINT "..... Table Full..... ss 
PAUSE 100 

CLS 

PRINT "¡"¡;TAB 10;,"¡"¡TAB 20;"n$(1,))” 
FOR i=1 TO 4 

FOR ¡=1 TO 4 

PRINT ¡TAB 10;¡;TAB 20;n8(¡,¡) 
NEXT ¡ 

NEXT ¡ 

sTOP Programa 7. Datos en una serie de 4x4 
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RUN 

n$(i.)) 
Archer: 
Benny 
Copper 
Draper 
Eddie 
Frame 
Gwynne 
Hetty 
Kemp 
Lamb 
Morley 
Noakes 
Prosser 
Smythe 
Tait 
Weekes 


bahahaAnhA000uNnnNn-— — a 
RONAON=PAO0N=A0N—= 


PF 4 
Se han hecho las siguientes enmiendas al Programa 7. Escribe cómo sería el 
resultado de la tabla. 


60 FOR ¡ 
70 FOR ¡ 
130 FOR ¡ 
140 FOR j 


Salida de tabla 
La salida del Programa 7 no es muy satisfactoria porque queremos ver la tabla 
en forma de tabla. Mira la nueva rutina de impresión: 


5 REM **4 x 4 Array** 
10 PRINT "ect Table Input and Print..... 1d 
15 PRINT 
20 PRINT "Table set up for 15 inputs...” 
30 DIM n$(20,5,7) 
40 REM **Input routine** 
60 FOR ¡=1 TO 5 
70 FOR ¡=1 TO 3 
80 INPUT "Next input? ";n$(i,j) 
82 PRINT n$(i,j); 
83 PRINT TAB 30;3*(i-1)+] 
90 NEXT j 
100 NEXT ¡ 
110 REM **Print Routine** 
111 PRINT 
112 PRINT "..... Table Full..... pS 
113 PAUSE 100 
115 CLS 
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130 
140 
150 
160 


FOR ¡= 
PRINT T 
NEXT ¡ 


pao 


170 
180 
200 


PRINT 
NEXT i 
sToP 


La salida es: 


Archer 
Draper 
Gwynne 
Lamb 
Prosser 


Benny 
Eddie 
Hetty 
Morley 
Smythe 


La primera columna empie- 
za en posición 1-1=0 
Columnas de 10 caracteres 
de ancho 


Copper 
Frame 
Kemp 
Noakes 
Tait 


9.6 Utilización de la impresora ZX 


Programa 8 


Hay tres comandos principales en el teclado del Spectrum para controlar la im- 
presora ZX: COPY, LPRINT y LLIST. 
COPY te permite volcar en la impresora el contenido exacto de lo que tienes en 
la pantalla. Sólo es efectivo cuando el contenido es estático —no puede copiar cuan- 


do estás moviendo gráficos. 


LPRINT actúa del mismo modo que PRINT, excepto que lo hace sobre la impre- 
sora en lugar de la pantalla, así 


LPRINT por sí sólo imprime una línea en blanco 


LPRINT con comillas ( 


) se usa para sacar mensajes en la impresora, bien co- 


mo comando directo o como parte integrante de un programa. 


LLIST te permite imprimir el listado de tu programa, que está en la memoria 


del computador. 


COPY está en la tecla 
LLIST en la tecla 


Z 


[V] , en modo [El] . 


, en modo 


[K] ; LPRINT en la tecla 


[C] , en modo [E] ; 
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9.7 Líneas de programa de varias sentencias 


El Spectrum tiene la capacidad de permitir más de una sentencia en cada línea 
numerada del programa: 


19 FOR x=1 TO 10: PRINT "Line Number "¿NEXT x 
ocupa menos sitio en una página que 
10 FOR x=1 TO 10 
20 PRINT "Line Number ”;x 
30 NEXT x 
Pero no es más eficiente, en términos de programación y puede hacer difícil 
el seguimiento del listado. Por esto hemos evitado utilizar múltiples sentencias en 
este libro. 
Hay un caso en el que puede ser de utilidad y es cuando pones una sentencia 
REM como segunda sentencia en la línea, y esa REM se refiere directamente a la pri- 
mera sentencia de la línea, por ejemplo 


100 1F q$=" " THEN GO TO 50: REM rechaza el ENTER sin introducción de datos 


210 LET n=n—1: REM no contar zzzz como registro de entrada 


9.8 Menús 


El siguiente fragmento de programa es una rutina de un programa mucho más 
largo que proporciona explicaciones o pruebas de varias ideas matemáticas. 

Las líneas 310 a 380 produce la visualización que te da a escoger una de cuatro 
opciones: éste es el menú” para elegir: 


ESCOGE UN NUMERO 


1. ¿Qué es VOLUMEN? 
Suma de VOLUMENES 
¿Qué es CAPACIDAD? 
Suma de CAPACIDADES 


Toca el número y luego ENTER 
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Las líneas 390 a 450 aceptan la elección del usuario y la validan. Si la prueba 


de validación 


falla (ver Unidad 5 para la explicación de cómo trabaja la validación), 


el computador espera pacientemente a que lo intentes de nuevo. Hay sólo cuatro 
entradas válidas: 1, 2, 36 4. Si se introduce 0, las líneas 460 a 500 limpian la panta- 
lla, hacen una breve pausa y luego revisualiza el menú, para que el usuario vea que 
se ha equivocado. Las líneas 510 a 570 comprueban si se ha introducido un número 
superior a 4, y si es así, aparece un pequeño mensaje por un tiempo fijado, limpian- 
do después la pantalla y reapareciendo el menú. Este largo procedimiento de valida- 


ción asegura 


el uso del programa. 


Esto es lo que aparece, si se introduce un número mayor que 4: 


ESCOGE UN NUMERO: 
1. ¿Qué es VOLUMEN? 


2. Suma de VOLUMENES 
3. ¿Qué es CAPACIDAD? 
4. Suma de CAPACIDADES 


¡Sólo números del 1 al 4, por favor! 


El punto 


crucial de la rutina está en las líneas 590 y 600; ahora que hemos esco- 


gido un número, podemos usar ese número para calcular el número de línea donde 
debe empezar la ejecución. 


Hemos usado 


600 GO TO q*1000 


Así que 


la elección de 1 se dirige a 1*1000= línea 1000; 


2 2*1000= línea 2000; 
3 3*1000= línea 3000; 
y 4 4*1000= línea 4000. 


Obviamente, si se listase todo el programa, entre 1000 y 1990 habría la explica- 
ción de volumen, con ejemplos, ¡no un simple mensaje! La línea 1990 entonces te 
retorna al menú, para permitir otra elección. 


300 
310 
320 
330 
340 
350 
360 


REM **menu routine** 

CLS 

PRINT AT 4,8;"CHOOSE A NUMBER” 
PRINT AT 5,7; A 

PRINT AT 8,7 What is VOLUME?” 
PRINT AT 10,7;"2. VOLUME sums.” 
PRINT AT 12,7;"3. What is CAPACITY? 
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370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
1000 
1010 
1020 
1030 
1990 
2000 
2010 
2020 
2030 
2990 
3000 
3010 
3020 
3030 
3990 
4000 
4010 
4020 
4030 
4990 


PRINT AT 14,7;"4. CAPACITY sums.” 

PRINT AT 18,0;”"Touch the number then ENTER key.” 
REM * *input validation ** 

INPUT aq$ 

F q$="”" THEN GO TO 390 

FOR z=1 TO LEN q$ 

IF a$(z)<"”0” OR q$(z)>"9” THEN GO TO 390 
NEXT z 

LET q=VAL q$ 

F q>0 THEN GO TO 510 

REM **cycle menu* * 

CLS 

PAUSE 50 

GO TO 300 

REM **check menu** 

F q<5 THEN GO TO 580 

REM **invalid number** 

PRINT AT 18,0;” Only numbers 1 to 4, please! ” 
PAUSE 150 

CLS 

GO TO 300 

REM **valid choices** 

LS 

O TO q*1000 

EM **volume definition ** 


RINT "You would put information here.” 
AUSE 100 
O TO 300 
EM **volume sums* * 
LS 
RINT "You would put information here.” 
AUSE 100 
O TO 300 
**capacity definition** 


QII2729D0o 
0) 


DVUOJD 


OO 
m 
< 


PRINT "You would put information here.” 


REM **capacity sums** 
CLS 
PRINT "You would put information here.” 
PAUSE 100 
GO TO 300 


Programa 9 


Tal como está la rutina, necesitarás hacer BREAK para salir del programa. ¿Por 
qué no añades una quinta opción, para detener la ejecución? Hazlo como ejercicio. 
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[K] Programa 9. 


Objetivos de la Unidad 9 


Al completar esta unidad, comprueba que puedes: 


Usar el ordenamiento por intercambio (manualmente) de 
un conjunto de datos 


Escribir dos bucles anidados para realizar el ordenamiento 

Seguir el GO SUB de los programas 

Escribir GO SUB en programas 

Usar búsquedas dicotómicas (manualmente) en un conjunto de datos 
Escribir un programa para búsqueda dicotómica 

Poner datos en series bidimensionales 


Escribir un programa para leer datos e introducirlos 
en una serie bidimensional 


Escribir un programa para imprimir datos de una serie bidimensional 


Escribir un programa para hallar la suma de filas y de columnas 
de una serie bidimensional 


Respuestas a PF y Ejercicios 


PF 


1 


oc0o0o0oo0oo00o0o0o 
ama 2220) 
NNNNNO- 
VORAZ 
AARODANN 
DDOAON0wN 
AAA SY 
09 00 00 (9 (9 0000 


FINAL SORTED LIST 
0 1 2 3 4 6 7 8 
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PF 2 
(a B 1/25 
(b) B = 9 (GO SUB no se usa en este caso). 


I! 


Ejercicio 1 
(a) 


5 REM **Exercise 1** 
10 FOR ¡=1 TO 32 

20 PRINT " ”; 

30 NEXT i 


40 PRINT Programa 10 
(b) 


30 PRINT TAB(s)"< =>" 
(c) 


5 REM **Exercise 1** 
10 FOR i¡=1 TO 32 
15 INPUT s 
16 PRINT s 
20 GO SUB 100 
30 PRINT TAB (s)"<=>"” 
40 GO SUB 100 
50 STOP 
100 REM **draw 'canal'** 
110 FOR i=1 TO 32 
120 PRINT " ” 
130 NEXT 1 
140 PRINT 


150 RETURN Programa 11 


El valor que damos a s determinará la posición del submarino en el canal, y 
obtendremos una imagen asi: 


14 
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Ejercicio 2 


10 
50 
60 
70 
80 
90 
500 
510 
520 
530 
540 
550 


Ejercicio 3 


10 

30 

40 

50 

60 

70 

80 

85 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
245 
250 
260 
270 
280 
290 
300 
305 
310 
311 
315 
320 


REM **Submarine** 


LET s=INT (29*RND + 1) 
GO SUB 510 

PRINT TAB (s);"'<= >' 
GO SUB 510 

STOP 

REM **Print Subroutine** 


FOR ¡=1 TO 32 
PRINT ” 

NEXT ¡ 

PRINT 

RETURN 


REM **Submarine** 
REM **Print challenge** 
GO SUB 300 


GO SUB 300 

REM **random position of sub** 
LET s=INT (29*RND + 1) 

REM **next go** 

PRINT 

NPUT "Try another number?” :x 
F x<s THEN GO TO 190 

F x>s+2 THEN GO TO 190 
REM **%a hit** 

GO SUB 300 

PRINT TAB (s)/ “Hit” 

GO SUB 300 

GO TO 320 

REM **a miss** 

GO SUB 300 

PRINT "You missed" 

GO SUB 300 

INPUT "Do you still want to play? ";r$ 
PRINT r$ 

IF. r$(1)="y"” OR r$(1)="Y" THEN GO TO 85 
PRINT "Spoilsport!! | was here” 
PRINT 

GO SUB 300 

PRINT TAB (s)'"< =>" 

GO SUB 300 

GO TO 320 

REM **print subroutine** 

FOR i=1 TO 32 

PRINT "-”; 

NEXT i 

PRINT 

RETURN 

sTOP 


PRINT "A number from 1 to 29 might find me” 


Programa 12 


Programa 13 
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RUN 


A number from 1 to 29 might find 
me 


You missed 


Y 
Yoy missed 
a di 


Spoilsport!! | was here 


<=> 


Ejercicio 4 


Medio(4) 


Petición = elemento(4)? No. 
Petición < elemento(4)? Sí. 
Indice(4) pasa a ser Alto 

A F IM 
1.2.3 4 Indice medio = Int(1+4)=2 


2 


Petición = elemento(2)? No. 
Petición < elemento(2)? No. 
Indice(2) pasa a ser Bajo 


2 
F 1 M 


Petición = elemento(3)? Sí. 
Entonces l está en la lista 
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PF 3 


a$(1,1) = Archer 
a$(2,1) = Draper 
a$(3,1) = Gwynne 


a$(4,1) = Lamb 


aS(5,1) = Prosser 


PF 4 


0 0wWNNNNNNINN —— — — — 


NA0ON-=NaA0N=0MAaA0NnN— 


a$(1,2) = Benny 
aS(2,2) = Eddie 
a$(3,2) = Hetty 
a$(4,2) = Morley 
a$(5,2) = Smythe 


ns(i,j) 


Archer 
Benny 
Copper 
Draper 
Eddie 
Frame 
Gwynne 
Hetty 
Kemp 
Lamb 
Morley 
Noakes 
Prosser 
Smythe 
Tait 


a$(1,3) = Copper 
a$(2,3) = Frame 

a$(3,3) = Kemp 

a$(4,3) = Noakes 
a$(5,3) = Tait 


(Observa que Weeks no se introdujo en la tabla. Una tabla de 5 x 3 leerá sólo 


los 15 primeros elementos.) 
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MANUAL PARA 
PRINCIPIANTES 
DE INFORMATICA 


COMPRENSION FACIL 
DE LOS ORDENADORES 


Una explicación simple, sin tecnicismos Stanle 

sobre lo que pueden hacer las y 
computadoras, cómo trabajan, cómo se 6 bl 

usan y todo lo que usted necesita conocer reen att 


acerca de las mismas. 


30 HORAS DE BASIC SPECTRUM 


¿Qué es BASIC? 


Los microordenadores son la herramienta de los 80. 
BASIC es el lenguaje que todos ellos usan. Por ello, cuanto 
antes aprendas BASIC, antes comprenderás la revolución de 
los microordenadores. 


30 horas de BASIC es un curso de autoenseñanza del 
lenguaje de microordenadores. Pero los programas requieren 
más que un lenguaje: necesitan estructura. Por esto el curso 
enseña también buenas técnicas de programación. Aprende- 
rás a guardar, ordenar y clasificar archivos, registros y direc- 
torios; cómo imprimir cartas y direcciones; cómo inventar tus 
propios juegos; cómo manejar números y más cosas. 


Esta edición incluye un capítulo especial de cómo usar 
los colores, el sonido y los gráficos del Spectrum. 


ESTE ES EL PROGRAMA DE COMPUTADOR DEL 
NATIONAL EXTENSION COLLEGE PARA LA TELE- 
VISION DE LA B.B.C. 


